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1 GENERAL INFORMATION 
1.1 Product Description 


The TUSB1 Functional Diagnostic is_ intended to provide 
confidence in the basic functionality of the TU61 subsystem. Bn such, 


this should be the first host level diagnostic run on TUsi 
subsystem to verify installation, or for ee mages be fly Th nout 
the program, emphasis is placed on isolating faults to the ield 
Replaceable Unit (FRU). 

The em runs in standalone mode in conjunction with the 
POP-11 family Diagnostic rvisor. In addition to host level 


testing. the program will implicitly inveke the TU81's controller 
resident Level 1 self-test i tg ph penta as well as explicitly 
invoking the controller's Level 2 microdiagnostics. 


1.2 Product Users And Uses 


1. OMT testing 
2. As appropriate at various manufacturing facilities 
3. Field service personnel 


4. DEC customers who choose to provide their own maintainance 


1.3 Performance Goals 


This program will test up to four TU81'’s in a sequential 
manner . To run ae fuil pass of the program, a scratch tape must be 
mounted on the transport and an operator must be present to perform 
manual intervention. However, appropriate subsets of the program can 
be run if there is no scratch tape, or the vperator inhibits manual 
intervention tests. Furthermore, the first pess of the program will 
run in “quick verify“ antes i.e., @ single iteration of each test will 
be performed. If multiple passes are specified by the operator, the 
second and all subsequent passes will run with each test executed with 
multiple iterations. First pass execution time will be aperen lantety 
20 minutes while second pass execution time will be approximately 2 
minutes. These pass times are based on a single unit under test. 


1.4 Pass/Feil Criteria 


_ This program oneneye a bottom-up approach to fost a the TU81; 
thet is, Test 1 will attempt to verify the simplest level of 
host-to-controller communication as outlined in  UQSSP. Each 
subsequent test builds upon the functionality already verified in 
previous tests. Hence, most errors encountered by the program will be 
considered as fatal device errors and the failing unit will be dropped 
from the rest of the test sequence. 
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1.5 Feilsoft Goals 

Unit specific lems will be handled by the preaees: CPU 
faults (i.e.. i:llegel treps or interrupts) will be led by the 
Diagnostic Supervisor. Hye faults will be handled by #§ the 
Diagnostic Supervisor, fault dependent. 


1.6 Restrictions 
Although basic read/write testing is performed, this ram 
is not interested in measuri the subsystem's date reliabil‘ty 


While recoverable date errors will be reported by the program, 


no 
attempt will be made to determine the subsystem's compliance with 


error rates. Unrecoverable data errors will be considered as fatal 
device errors, although the media could be the causative factor. 


1.7 Non-Goels 


This program is intended to verify the gross functionality of 


host-to-controller communications, the integrity of the controller 


hardware, controller-to-drive communication and the basic 
functionality of the drive. It is not intended as a verification of 
TMSCP protocol as implemented in the controller firmware, and no 
testing of TMSCP commands is provided. 


1.8 Runtime Environment Requirements 
Runtime environment requirements include: 
1. XXDP+ Diagnostic Supervisor 
2. PDP-11 family CPU 
3. 28 KW memory 
4. Console Terminal 
5. Load Device 
6. 1 to 4 TU81 tepe drives with controllers 
7. 1 to 4 TUB1 scratch tapes (optional) 
8. LCP-5 UFD software Coptional) 
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2 USER INTERFACE 


2.1 User Dialogue 

The following user dialogue will be provided at progres 
stert-time to allow the user to establish certain operational 
peremeters of the progres. 


2.1.1 Werdwere Questions - 


This set of questions must be enswered when the progrem is 
first sterted. 


CHANGE HARDWARE (LL)? no cefault 


— OF UNITS (0)? enter number from 1-4 
* 

BASE ADDRESS (0) 774500? 

VECTOR (0) 260? 

UNIT NUMBER (0)? 





2.1.2 Definition Of Hardware Questions - 


- This question merely wants to know if you want to 
the units under test. It must be answered "yes" on the 


fleas gins of the program. 

NUMBER OF UNITS - Enter the number of TU81's to be tested. 

BASE ADDRESS - Enter the ID address of the unit to be tested. 
VECTOR - Enter the vector location to be used for the unit. 
UNIT NUMBER - Enter the MSCP-specified unit number for the unit. 


This entire set of questions will be repeated up to four times, 
ing on the user's response to the “number of units” question. 


2.1.3 Seftwere Questions - 


Most of the optional Cunet ores Sy of the program is either 
handled automatically by the program or through established procedures 
aaa ya by the Diagnostic Supervisor hence there are no software 
questions. 
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This besic format will be used by all host level testing. 
error eeeee on unit 1l test ttt sub sss PC: xxxxxx 






: 
: 3.1 Error Formet i 
; 





STEP @: n 
EXPCTD 


SA RE: semen : yyyyyy ACTUAL SA: zzzzzz 


eeeeFAILING FRU: LESI/CONTROLLER/CABLEeses | 
In this exemple, the fields have the following meanings: 
5 AC - @eeee = discrete error number as defined by program 
- lis icel unit number assi to unit-in-error duri 
logi i igned it-i ng 


sss * subtest number 
- KRXKKX © progrem location of error call 


bs 
‘ 


- ttt = test number during which error occurred 
detected the error condition 


- ww = physicel address of the SA register 


questions 
- n= etep number of the UQSSP initialization sequence which 
: - yvyyyyy * expected contents of SA register for this step 


- gzezzezz = actuel SA register contents 
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3.2 Error Forast 2 


Thies formet will be used for errers detected by the Level 2 
si crodi agnostics. 





FIL error eceece on unit ll test ttt sub sss PC: xxxxxx 
ORIVE TEST FAILED 


FAULT °f —- SUB-FAULT CODE 
Aevce So PATHFINDER FOR EXPLANATION OF CODES. 


eeseFAILING FRU: DRIVEsese 





In thie exemple, the fields have the following meanings: 


- eeecee * see above 


~ ll = see ebove 

- ttt = see above 

- 85 * see above 

- RRXXKX © Gee above 

- *f = refer to pathfinder 
- c¢ = refer to pathfinder 
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TEST STEPS: 





T 
itialize the Unibus 


ones = initialize 
int System error and ABORT program 


S on Cleer stetus 

a error and ABCRT program 
regis’ 
microseconds for possible Uribus timeout 
@ timeout error | : 
int Fetel device error and drop unit 








i 









4 SPE 
%S e 
Hs 


: 
S588 
| 

; 

: 

q 


PY 


rint Fetal device error and ABORT program 
ENDTEST 


DEBUG: 


No error loopi is allowed all errors abort the test or program 
The FRU is esi Adapter for ell errors in this test. 
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4.2 TEST 2 < Initializetion Test > - 





ioter to begin 





IF the TU81 fails to enter STEP 1 
THEN print fatel on beg Poe error and drop unit 
eon step i date _— with recy 


® compare er 
oOFHEN print fatal device error and drop unit 
ENDTEST 
DEBUG : 


If 1 on error specified then loop to start of test. 
T FRU is the Lesi Adapter for all errors in this test. 


ee 


ee 
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4.3 TEST 3 < Initialization Test > - 


TEST DESCRIPTION: 


This test will do ea TUSB1 controller hard initialize 
then do initielization steps 1 er . 

It will wait for step 4 to be ente but no step 4 
testing will be done in this test. 


TEST STEPS: 


BGNTEST 
Call dup__ipinit to write to the ister to begin 
petty pe ye oe oe fer te 
IF the TU81 fails to enter STEP 1 


THEN print fatal device error and drop unit 
Compare step 1 data expd with recv 
IF date compare error 

THEN print fatal device error and drop unit 


Call dup stepl to write oven pattern and wait step 2 


IF the 1 fails to enter S 

THEN print fatel device error and drop unit 
Compare step 2 data exr,d with recv 
IF data compare error 

THEN print fatal device error and drop unit 


to write otee¢ te pattern and wait step 3 


Call _-step2 
IF the F081 fails to enter 
THEN print fatal device error and drop unit 
Compare step 3 data expd with recv 
IF date compere error 
THEN print fatel device error and drop unit 


Call “~- steps to write ates 3 mit pattern and wait step 4 


IF the TUS1 fails to enter 
THEN print fetal device error and drop unit 
Compere step 4 data expd with recv 
IF date compere error | 
print fetel device error anc drop unit 
ENDTEST 


DEBUG: 


If loop on error specified then loop to start of test. 
The FRU is the Lesi Adapter for all errors in this test. 


ee eee 
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4.4 TEST 4 < SA Register Wrap Test > - 


TEST DESCRIPTION: 


The TUB1 will be initialized in Sapam < wrap mode 
and then e one (1) bit will be floa through the 
SA register to see that it echoes properly. 

The process will be repeated to float a zero (0) 
through the SA register. 


TEST STEPS: 


BGNTEST 
Call dup__ipinit to write to the ister to in 
hard initieliae end wait for ster Po 


THEN print fatel device error and drop unit 


eas dae twinis 2 ite to the Ip ister to begi 
_.ipini o write to ister to in 
S initialies and wait for Step 1. 

IF the TUS81 fails to enter STEP 1 
eOTEST THEN print fetel device error and drop unit 


FLOAT_._ table: 
FLOATING 1'S 1.2.4,10,20,40, 100,200,400, 1000, 2000 
10000 , 20000 , 40000 . 100000 


FLOATING ©0'S Floating 1's complemented 
DEBUG: 


If i on error specified then loop on faili write and read. 
The FRU oF 


is the Lesi Adapter and tu8l controller 
for all errors in thie test. 


me eee ee _ = 
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priority to lock out interrupts 
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OEBUG: 
Possible ressens for incerrect interrupt vector include: 
3: SSS S08i controller 
If leep on error epecified then leep to stert of the test 
} mee, Be EL Seaiee Ane Gees centretine 
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4.6 TEST 6 < Purge And Poll Test > - 
TEST DESCRIPTION: 


This test will perform steps 1-3 of the initialize sequence 

then set the /poll bit in step 3. 

The wae sequence will then proceed to: 
1. Write O's to the SA register to simulate uba purge complete. 
2. Read and disregard the IP register to start polling 
3. Wait for the controller to go into step 4. 


TEST STEPS: 


BSNTEST 
Call dup__ipinit to write to the Ip ister to begin 
rd initialize and wait for STEP i. 
IF the TU81 fails to enter STEP 1 
THEN Print fatel device error and drop unit 
Compare step 1 data expd with recv 
IF data compare error ; 
THEN Print fatal device error and drop unit 


Call dup. stepi to write step 1 bit pattern and wait step 2 
IF the TUS1 fails to enter STEP 2 
THEN Print fatal device error and drop unit 
Compare step 2 data expd with recv 
IF data compare error 
THEN Print fatal device error and drop unit 


Call dup. step2 to write step 2 bit pattern and wait step 3 
IF the 1 fails to enter STEP 3 
THEN Print fatel device error and drop unit 
Compere step 3 date expd with recv 
IF data compare error 
THEN Print fatal device error and drop unit 


Cell dup__step3 to write purge/poll bit (sa_pp_3) 

IF the controller fails to clear the SA within 100 micros 
THEN Print fatal device error and drop unit 

Write 0O’s to the SA to simulate uba purge complete 

Read and disregard the IP register to start polling 


IF the TU81 fails to enter STEP 4 within 10 seconds 
ENDTEST THEN Print fatal device error and drop unit 


Ww 
SeeSreseereaeeparcesscsarearssecbabenceteseke 
ey * 


DEBUG: 


If 1 on error specified then loop to start of test. 
The FRU is the Lesi Adapter for all errors in this test. 


Ww 


be pee bt 
PuUunprowoe®@ 
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4.7 


TEST 7 < Srall Ring Test > - 


TEST DESCRIPTION: 


This test will do steps 1-4 of the TU81 initialization, 
with the smallest ring buffer size (1 cmd and 1 rep buffer) 


and interrupts disabled. 
The test will verify the controller clears the ring 
descriptor field in the host communicetions area. 


This is the first time the initialize sequence is carried 


out to the point where the controller npr's to memory 
are verified. 


TEST STEPS: 


DEBUG 


BGNTEST 


Set cmd and rsp ring descriptors to -1 
Set cmd ring length word to 0 to indicate 1 cmd buffer 
Set rsp ring length word to 0 to indicate 1 rsp buffer 
Call Dup_Init to write to the Ip register to force 

a hard initialize, then perform steps 1-4. 
IF the TU81 fails to enter any step : 

THEN print fatal device error and dr unit 
IF the cmd and rsp ring descriptors not cleared 

THEN print fatal device error and drop unit 


ENDTEST 


ae on error specified then loop to start of test. 
The FRU is the Lesi aeerrer and TU81 controller 
for all errors in this test. 


OE SE oe es me 
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4.8 TEST 8 < Maximum Ring Buffer Test > - 
TEST DESCRIPTION: 


This test will do steps 1-4 of the TU81 initialization, 
with the largest number of ring descriptors allowed 

(128 cmd and 128 rsp buffers) and interrupts disabled. 
The test will verify the controller clears the ring 
descriptor field in the host communications area. 

This test verifies the controller can access the complete 
host commmunication area in Vax memory (1024+4 words). 


TEST STEPS: 


BGNTEST 
Set cmd and rsp ring descriptors to -1 
Set cmd ring length word to 7 to indicate 128 cmd buffers (2¢47=128) 
Set rep ring length word to 7 to indicate 128 rsp buffers (2¢#7=128) 
Call Dup__Init to write to the Ip register to force 
a hard initialize, then perform steps 1-4. 
IF the TU81 fails to enter any step : 
THEN print fatal device error and drop unit 
IF the cmd and rsp ring descriptors not cleared 
cbvest THEN print fatal device error and drop unit 


DEBUG : 


» a on error specified then loop to start of test. 
The FRU is the Lesi Adapter and TU81 controller 
fea for all errors in this test. 
e: 
This test overlays the host communications area with 
128 cmd ring descriptors and 128 rsp ring descriptors. 
The actual associated ring buffers are not allocated. 
bingy Poo of the tests use just one cmd and one rsp 
er. 


SEQ 16 
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631 4.9 TEST 9 < Get DUST Status > - 

+ TEST DESCRIPTION: 

655 This test will request the DUST status and verify the 

656 response packet is received as expected. — 

657 It is elso verifies invalid command status is returned 

656 when illegal modifiers ere specified in the command packet. 
659 The GET T command does not allow any command modifiers. 
660 This is the first time ea command ket is actually sent to 
661 the controller and a response packet received. 

$63 TEST STEPS: 

665 BGNSUB 1 *Get DUST command with valid modifiers 

666 Set cmd and rsp ring descriptors to -1 

667 Set cmd ring length word to 0 to indicate 1 cmd buffer 

666 Set rsp ring length word to 0 to indicate 1 rsp buffer 

669 Call Dup__Init to write to the Ip register to force 

670 a hard initialize, then perform steps 1-4. Go bit set to i 

671 IF the TUB1 fails to enter any step 

67 THEN print fatel device error and drop unit 

67 IF the cmd and rsp ring descriptors are not cleared 

674 THEN print fatal device error and drop unit 

675 Call exe__getdust to execute ea GET DUST command 

676 IF Exe__getdust returns SS$__TIMEOUT code 

677 THEN print fatal device timeout error and drop unit 

678 IF the rsp Command reference number NOT = 1 

679 THEN print hard device error 

680 IF the rsp Endcode NOT= (get_dust code + 200 octal) 

681 THEN print hard device error 

68 IF the rsp Status NOT= success 

68 THEN print hard device error 

os IF the rsp buffer FLAGS date is NOT as follows: 

665 1. Bit<O> = 1 !du_p_dust_flag.dis  - disable other servers 

6 2. Git<l> = 3 3 _.dust__flag__media - server has local media (Crom) 

687 3. Bit<2> = 1 !dup__dust__flag__nosup - exe__supplied cmd not allowed 

& : 4. Bit<3> = 0 tdup__dust__fla_g_act - server not active 

6 THEN print hard device error 

+ ENDSUB 1 

tH | BGNSUB 2 *Get DUST command with illegal modifiers 

69 Cell exe__getdust to execute a GET DUST command 

694 IF Exe__getdust returns SS$__TIMEOUT code 

695 THEN print fatal device timeout error and drop unit 

696 IF the rsp Command reference number NOT = 2 

697 THEN print hard device error 

6 IF the rep Endcode NOT= (get_.dust code + 80 hex) 

69 THEN print hard device error 

700 IF the rsp Status NOT= INVALID COMMAND 

701 THEN print hard device error 

108 ENDSUB 2 

70 

704 ENDTEST 





PARAMETER CODING MACRO VOS.03 Wednesday 09-Oct-55 10:06 Page 16 SEQ 168 


706 DEBUG: 

106 If loop on error specified then 1 to start of test. 
769 The FRU is the lesi ter or the i cortroller/server 
710 for ell errors in this test. 


oases eee 


dee 
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4.10 TEST 10 < Functional Feult Detection Test (Internal Drive Test 1 > - 
TEST DESCRIPTICN 


This is e manuel (/sec:menuel) intervention test thet will execute 
the TUB1 internal microdiagnostic _#1. 


TEST STEPS: 


BGNTEST <MANUAL> 
Print message to mount ae eet Sa but loaded 
s the t 


Call dup_init to write to to the eres: | 2 force 
a herd initialize, then perform steps 1-4. Go bit set to 1 
IF the TUB1 fails to enter any step 
THEN print fatel device error and drop unit 


Call OUP_EXELOCAL to execute an EXECUTE LOCAL PROGRAM command 
IF exelocel coven Bee tien 
print Get dust command timeout 
IF ge rng po Bn ns ss "NOTIOLE 
print controller not in idle state 
IF ne GTHEN print, returns SS$_TIMEOUT 
rint controller failed to return packet 
= so ypiee wll 
print prt nt command reference 
IF exelocel returns SS worsuccess 
rint eantvatior eiled to return success in packet 
IF EXELOCAL returns SS_ ee 
print invalid command reference 
IF exelocel returns SS$ oOEVINACT 
print controller failed to enter active state 
IF exelocel returns SS_RECVTMO 
print Controller Failed to accept receive data command 


IF aunlesas returns SS_ 
print p ress indicator not — before timeout 
IF exelocal returns SS_RECVI 


IF “ exelocal returns SS_ RECVER 


ENDTEST 
DEBUG: 
If 1 on error specified then loop to stert of test. 
The is lesi ter for iritialize errors 


or the TUSB1 controller/server for all other errors. 








a 
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765 4.11 TEST 11 < Tension Feult Isolation Test (Internal Drive Test 2)> - 
169 TEST DESCRIPTION: 
789 This is a Feult (/sec:Feult) eaeereess ten test thet will execute 
779 the TU81 internal microdiagnostic 
77 Internal test _@2 isolates servo faults by checking different 
17 essemblies of the STU. 
4 
f 5 TEST STEPS: 
iis BGNTEST <Feult> 
, Print message “Mount a scratch -* THREADED but UNTENSIONED” 
"Is the t 
Call dup__init to write the register = force 
7 e hard initialize, then perform steps 1-4. Go bit set to 1 
7 IF the TUB1 feils to enter any step 
THEN tap Execocal fetel device error end unit 
Cell DUP OCAL to execute en EXECUTE L AL PROGRAM command 
IF exelocel returns SS “GETDUSTHO” 
print Get dust command timeout 
IF exeloceal returns SS_NOTIOL 
7 print controller not in idle state 
exelocel re Fy T 
print controller failed to return packet 
exelocel returns SS_ a. 
print invalid command reference 
IF exelocal returns SS wOTSsUcCESS 
N orint controller failed to return success in packet 
returns S ont nt ee veal 
7 print invalid ¢ reference 
7 IF exelocal returns “Sst ee DEVINACT 
print cankreneer failed to enter active stete 
IF Dupaexelocal returns Vv 
print C ontroller Failed to accept receive data command 
IF exelocel returns SS_PROGTMO 
T print pe progress indicator not updated before timeout 
IF pb Geer urns Ss. RECVINVMSG 
print Receive data returned invalid message number 
IF ,emelecet returns SS_RECVERR2 
print Receive data returned internal test failed 
and print the mes buffer fault code and subcode. 
and print refer to SAMS for fault code meanings. 
IF exelocal returns SS_SAE 
print controller error while in execute local program 
ENDTEST 
: DEBUG: 
6 If loop on error specified then loop to start of test. 


Se 
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4.12 


TEST 12 < Velocity Fault Isolation Test (Internal Drive Test 35)> - 


TEST DESCRIPTION: 


This is e Fault (/sec:Fault) intervention test that will execute 
the TU81 internel microdiagnostic _@5. : 
Internal test _#3 isolates velocity servo faults by checking 
i teke__up motor/tach assembly and the velocity servo 

oop. 


TEST STEPS: 


ey ~ ee e 6 eri 
rint message “Remove the rom the drive” 
"Is the tape REMOVED?” 


Call dup__init to write to the Ip register to force 


ard initialize, then perform steps 1-4. Go bit set to 1 


a 
IF the TUB1 fails to enter any step 


THEN 
Call DUP 
IF 


If 
The 


rint fatel device error and ate ete: 
_Exetocat to execute an EXECUTE LOCAL PROGRAM command 
exelocal returns SS_GETDUSTMO 
print Get dust command timeout 
IF Oye one lenet returns SS_NOTIOL 
print controller not oe state 


IF exelocel returns SS$_TIME 
print controller failed to return packet 
iF exelocel returns 5S_EXEBADREF 


print invalid command reference 

IF exelocal returns SS_NOTSUCCESS 
rint controller failed to return success in packet 

IF EXELOCAL returns SS_DUSTBADREF 

print invalid command reference 
IF exelocel returns SS$_DEVINACT 
print controller failed to enter active state 
IF exelocel returns SS_RECVTMO 


T 
IF Cup semaseces returns SS_PROGTMO 
IF : 


print prog 
exelocal returns SS_RECVINVMSG 
print Receive data returned invalid message number 
IF exelocel returns SS_RECVERR2 | 
print Receive date returned internal test failed 
and print the mess buffer fault code and subcode. 
and print refer to SAMS for fault code meanings. 
IF exelocei returns SS_SAERR 
print controller error while in execute local program 


1 on error specified then loop to start of test. 
is lesi ter for initialize errors 
the TU81 contreoller/server for all other errors. 
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4.13 TEST 13 < Select A Drive Resident Test (Internal Drive Tests 1-99) > - 
TEST DESCRIPTION: 


This section (/sec:FAULT) will ask the operator ‘ 

to select a drive resident microdi tic. The resident 

test will be sterted using the Dup Execute locel progrem 
function and monitored by Dup Get Dust status function cells. 
The internal tests are described in the Drive maintenance manuel. 


TEST STEPS: 
BGNTEST <FAULT> 


Print message “Enter drive unit number :" 
IF the unit number is invalid 
THEN Print error mes end ask again 
Print message “Enter controller internal test number <1-99>:”" 
F the resident test name is not in the valid name table 
THEN Print error message and ask again 


Print message "Setup the t drive per the Maintenance 
manual for this internal test 
READY? 

Accept any response as ready 


Call fe tatt to write to the Ip register to force 
herd initialize, then perform steps 1-4. Go bit set to 1 
IF the TUB1 fails to enter any step 
THEN print fetal device error a oreo un 
Call DUP_EXELOCAL to execute an EXECUTE LOCAL ‘PROGRAM command 
IF exelecal returns SS_GETDOUSTMO 
print Get dust command timeout 
IF exelocel returns SS_ NOTIDLE 
print controller not in idle state 
exelocal returns SS$_TIMEOUT 
print controller failed to return packet 
IF Dup_exelocel returns SS_EXEBADREF 
OREN print invalid command reference 
IF exelocal returns SS_NOTSUCCESS 
rint controller failed to return success in packet 
IF Dupe EXELOCAL returns SS_DUSTBADREF 
HEN print invalid command reference 
IF el ae returns SS$_DEVINACT 
print controller failed to enter active state 


IF exelocel returns SS_RE 
N print Controller failed to accept receive data command 
IF exelocel returns SS_PROGTMO 


N print progress indicator not updated before timeout 
IF Ro exelocal returns SS_RECVINVMSG 
THEN print Receive data returned invalid message number 


SEQ 22 


a re 


PARAMETER CODING 


1008 


Hau 


see 


002000 


000170 
043110 


IF 


IF 


MACRO VOS.03 Wednesday 09-Oct-85 10:06 Page 25 





exelocal returns SS_RECVERR2 


print Receive data returned internal test failed 

and print the ee Ser feult code and subcode 
o— —— refer for fault code meanings. 
exelocal re 


to 
SS_RECVMSGS 
print contents of receive data message buffer (not en error) 


IF exeloceal returns SS_SAE 


ENDTEST 


DEBUG: 


*) 
- TITLE PROGRAM HEAD 


If 1 
The F 


RR 
N print controller error while in execute local progrem 


is lesi 


on error specified then loop to start of test. 
ter for initialize errors 


or the TU81 controller/server for all other errors. 


-SBTTL PROGRAM HEADER 


3o¢ 
3; THE 


LS$NAME: : 


-ENABL ABS,AMA 
° 2000 


"NLIST BEX 


: AND TABLES 


PROGRAM HEADER IS THE INTERFACE BETWEEN 
; THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 


POINTER BGNDU.ERRTBL .BGNRPT 


CZTU2.B8,0,120. ,0,PRIOO 
;DIAGNOSTIC NAME 


sREVISION LEVEL 


30 


sNUMBER OF UNITS 
;LONGEST TEST TIME 
sPOINTER TO H.W. QUES. 





————— — - - 


SEQ 25 


— ~~~ 


LSSTA:: 
L$CO:: 
L¢DTYP:: 
LSAPT:: 
LSDTP: : 
LSPRIO:: 


TEPEREIEL ESEELEEEEL 
82859588 3 88 a: 


LSLUN:;: 
LSDESP: : 
LSLOAD:: 
LSETP: : 
LSICP:: 
Lecce: : 
LSACP:: 


3 
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sPOINTER TO S.W. QUES. 


0 

;PTR. TO DEF. H.W. PTABLE 
L$Hw 
- :PTR. TO S.W. PTABLE 

;DIAG. END ADDRESS 
L$LAST 
9 sRESERVED FOR APT STATS 
0 
a s;DIAGNOSTIC TYPE 

;APT EXPANSION 

;PTR. TO DISPATCH TABLE 
LSDISPATCH 

:DIAGNOSTIC RUN PRIORITY 
PRIOO 


:sFLAGS DESCRIBE HOW IT WAS SETUP 
;EXPANSION WORD 
;SVC REV AND EDIT @ 
CSREVISION 
CsEDIT 
;DIAG. EVENT FLAGS 


0 
0 
0 
; POINTER TO DEVICE TYPE LIST 
LéOvVTYP 
;PTR. TO REPORT CODE 
L$RPT 
0 
0 
6 :PTR. TO ADD UNIT CODE 
1 eou 3;PTR. TO DROP UNIT CODE 
6 3;LUN FOR EXERCISERS TO FILL 
Lepesc sPOINTER TO DIAG. DESCRIPTION 
sGENERATE SPECIAL AUTOLOAD EMT 
ESLOAD 
sPOINTER TO ERRTBL 
LSERRTBL 
;PTR. TO INIT CODE 
LSINIT 
Ks ;PTR. TO CLEAN-UP CODE 


;PTR. TO AUTO CODE 


cee ee em eee _— 


SEQ 24 


— ee 


[_ 


Sm ee me ee 








WORD 
LSPRT:: 
. WORD 
LSTEST:: 
. WORD 
LOOLY:: 
. WORD 
LSHMIME:: 
WORD 


LSAauTO 
LSPROT 
° 
c¢) 
ce) 
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3;PTR. TO PROTECT TABLE 
sTEST NUMBER 

;DELAY COUNT 

;PTR. TO HIGH NEN 
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+ BFS SEDGE Pee BSin WS Suseaten SO'EREN Sesh “SST 





Lspesc DESCRIPT <CZTU2BO TUB1 FUNCTIONAL DIAGNOSTIC> 
33 
124 :~ /CZTU2ZBO TUB FUNCTIONAL DIAGNOSTIC/ 


a sone ad 
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—== = _ 





SEQ 27 


-SBTTL DEFAULT HARDWARE P-TABLE 


+ 
; THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 
; THE TEST-DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 
; IS IDENTICAL TO THE STRUCTURE OF THE HARDWARE P-TABLES. 


ao 
BGNHW DFPTBL 


000003 .WORD 1L10000-L$HW/2 
LSHW: : 
174500 .WORD 174500 ;TUIP BASE ADDRESS 
000260 . WORD 260 ; VECTOR 
000000 . WORD 0 ;T/MSCP UNIT NUMBER 
ENDHW 
L10000: 


se a ah TABLES 


a 


087 
1115 


Pee pe pe et ee ee pt pee pe 
te eo ee ee pet ee ee pe 
MORI PROPOR) 
2urnvrove-~ia 


002234 


002234 


et = 


L1i0001: 
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.SBTTL SOFTWARE P-TABLE 


+ 
; THE SOFTWARE P-TABLE CONTAINS THE VALUES OF THE PROGRAM 
; PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR. 

oo 


BGNSW SFPTBL 
-WORD 1L10001-L$SW/2 


 *LSSW:: 


SFPTBL: : 


ENDSW 


roe 
- TITLE GLOBAL AREAS 
-SBTTL GLOBAL EQUATES SECTION 


BGNMOD 


THE GLOBAL EQUATES ag tg aan PROGRAM EQUATES THAT 
; ARE USED IN MORE THAN ONE TEST 
tee 


EQUALS 
; BIT DIFINITIONS 


SEQ 28 


ee 


——— <= -~ — 





ee ee ee = = ee —--« --. 


GLOBAL AREAS MACRO VOS.03 Wednesday 09-Oct-85 10:06 Page 27-1 SEQ 
CLOBAL EQUATES SECTION 


000002 BITi== BITO1 
000001 — BITOO 


EVENT FLAG DEFINITIONS 
EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 


BIT POSITION IN SECOND STATUS WORD 


; i 
000040 EF .START== 32. 3; €100000) START COMMAND WAS ISSUED 
000037 EF .RESTART== 31. ; €040000) RESTART COMMAND WAS ISSUED 
000036 EF .CONTINUE== 30. ; €020000) gt COMMAND WAS ISSUED 
000035 EF .NEW== 29. ; (010000) A NEW PASS HAS BEEN STARTED 
000034 EF .PWR== 28. ; €004000) A POWER FAIL/POWER-UP OCCURRE 
* 
F) 
; PRIORITY LEVEL DEFINITIONS 
3 
000340 PRIO7== 340 
000 PRI06== 300 
000240 PRIOS== 240 
Cc PRIO4== 
000140 PRIO3S== 140 
1 PRIO2== 100 
PRIO1== 40 
PRIOO== 
;OPERATOR FLAG BITS 
EVL== 4 
000010 LOT== 10 
000020 ADR== 20 
i?) I0U== 40 
000100 ISR== 100 
000200 UAM== 
00 BOE== 400 
001000 PNT== 1000 
002000 PRI== 
000 IXE== 4000 
010009 IBE== 10000 
J2 IER== 
LOE== 


AS 


BP ERS 


Ee De ee be bet te fet feat pa feed pet be Peet pa ped Rat ted pot ed peak fd hed ph Pet eh ped ht pk pd pet ee pe pe pe St 
RAb ave SDS IRM SUH SOS IAM hue 


ed ea ee eee 


Gn 
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SECTION “ _ 


000906 
090010 
000014 


§ { SSSHASSSSESESSASSSESSSSSSASSSSSSHESESSSAAASESSSSESSESSERESSSSSSRES 
ff SSRSSESESESESSESEASSEEASSSESSSSSSSESSASESASESSSARHSASSSHSKS HESS SE 


‘LUN_BLOCK OFFSETS 
; THESE LITERALS ARE USED AS WORD OFFSETS INTO THE LUNBLK, WHICH 
IS PGINTED TO THROUGHOUT THE PROGRAM BY R4. 


é 
§ | SRASESESSESSSESEASSSSESASASESSSSERESSSSSESASESHS SS RESSSAASHAEKESSE 
§ f PRSASSSHKSESSSESESSSASSESEAAESSSSAASSKSESSEASSSSSAASSSKREHSSHAKSSS 


TUIP ss 0 ;TUIP REGISTER ADDRESS 

TUSA oe 2 ;TUSA REGISTER ADDRESS 

TUVEC == 4 ;TU INTERRUPT VECTOR 

MS ss 6 ;T/MSCP UNIT NUMBER 

TUIPSV == 10 ;SAVE LOCATION FOR IP CONTENTS 

TUSASV == 12 ;SAVE LOCATION FOR SA CONTENTS 

LUNFLG == 14 ;BIT-SPECIFIC MEANINGS AS DEFINED BELOW 


ff RSSREEERESSESASESERESSSASERESSESSSSAERERASHASEASSEAAESESSSEASSSASSSE 
ff PRRSESSASESSSSAASSESAAREESAERESSSEESSSASAARSASRSSRASSSSESESSSESASS 


; 
LUNFLG 

; THIS WORD IN LUNBLK IS USED TO CONVEY VARIOUS INFORMATION 

IN A BIT-SPECIFIC MANNER. BITS USED BY THE PROGRAM ARE 

i DEFINED AS FOLLOWS. 


ff SSSAESESASASASSSESESEAKERASSAASASSASEASSRESEAAAKASSASSSSSKESASESSE 
fF PRARASKARESSRSESASAASAAERESARAREASSEASSASESALARERSESESELASSSSRE SSS 


DRPFLG == BITO ;=0 UUT AVAILABLE FOR TEST 

;*1 UUT HAS BEEN DROPPED 
INTFLG == BIT1 ;*1 EXPECTED INTERRUPT OCCURRED 
BRFLAG == BIT2 :=1 INTERRUPT PRIORITY TEST 
TEST.9 = BITS :71 TEST 9 FLAG 
DONEFL == BIT4 ;#1 INTERNAL DRIVE TEST DONE 


SEQ 30 


CCOBAL EQUATES SECTION 
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1170 § §SOSESSSOSSSS SESS LESEESSEASERSSSESERSSSSSESEAASHAAHHSAESHARHEEHRE 
137% PO 
1178 ;UQ-PORT EQUATES 
1174 3 THIS SECTION DEFINES THOSE LITERALS USED 
1175 $ BY THE DIAGNOSTIC IN THE UQ-PORT PROTOCOL. 
1176 3 GENERAL THEY HAVE BEEN FORMED BY USING 
| 1177 ; THE TWO LETTER MNEMONIC DEFINED IN UQSSP, 
1378 $ CEDED BY “BB.” INDICATING THEY ARE BITS. 
| 11860 t  eebeneesassccccsoesenccsnescccsacsssacsaaeseasenceeanasaceececes 
ert jf PERS SSESEEEESSESESESSAESESASSSESSSESALESSESSSESSSESASAESERAASSEESS 
1185 sREAD-ONLY BITS 
1165 B.S1 =s BIT11 :STEP 1 
1 010000 6.S2 =s BIT1i2 :STEP 2 
i 020000 6.53 as BIT13 :STEP 3 
re : 8.34 zs BITi4 ;STEP 4 
11 100000 B.ER ss BIT15 sERROR INDICATION 
119 B.NV as BIT10 :;20 VECTOR IS HOST SETTABLE 
119 001000 8.8 x2 BIT «3 SUPPORTS 22 BIT HOST BUS 
119 8.01 ss BIT8 oe 1 SUPPORTS ENHANCED DIAGNOSTICS 
1194 000200 8.00 2s BIT? 1 SUPPORTS ODD BUFFER ADDRESSES 
95 000100 6 .MP 2s BIT6 oe SUPPORTS ADDRESS MAPPING 
: 37 sWRITE-ONLY BITS 
: 99 100000 8.PP ss BITi5 ;PERFORM PURGE AND Ba TESTS 
00 040000 B.WR ae BIT14 ‘ENTER DIAGNOSTIC WRAP MODE 
: 0 000002 8.LF ra BIT1 ;LAST FAIL REQUEST 
0 000001 6.PI a3 BITO ;ENABLE ADAPTER PURGE INTERRUPTS 
: 000001 8.GO0 aa BITO :GO BIT - START RUNNING 
: ;sREAD/WRITE BITS 
: 4 000200 B.IE ae BIT7 ;STEP X-TION INTERRUPT ENABLE 


——— ee ee ~~~ 


SEQ 31 


arenes oe 


— 


me ee ew 
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1210 j §OOO6464066060648 SSF SS SSSSESAESEEEREEAASSSSESESERSAESSSAEHLEENES 
igh} jf PSSESESSSSEEEESEEESSSESESESESSEEEESEESESERERASEESESAHSESAKSS LASSE 
1 
igt3 ‘ GENERAL PURPOSE EQUATES 
1215  pPoeeeeeesseseaecaccssccesecccsacecacsacsaccensaaceaanaegeasanss 
1236 | { SORESEEEEEEEAEEESESEESESESESSSSESSESESSSSSSSEREAAESESEAASERSEASE 
t +9 yaaa eed TRL == . ; VECTOR FOUR - - TIMEOUTS. ETC. 
| 0 000014 DISCAC == 14 ‘BIT POSITIONS 2 AND 3 DISABLE CACHE IN CCR 
: 1 tages RCSR _ ph oo 3; TERMINAL erate ee (eiacve REGISTER ADORESS 
1338 177746 a ae 177786 ‘CACHE CONTROL REGISTER ADDRESS 





. ~ _ - —_ 
_ —_— a —— —<- eer ere ee ~- 
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GLOBAL EQUATES SECTION —_ 





1226 j $PSSSSEOOS6SEEEEEEEESESEESSESSESERSSEEESSSESSESEERESEEEAESAAESERE 
1227 5 {POSES SSSEESEEESESSSESEESSESESSEESERESAREESEESASEASSSSAAERAAESEES 
8 $ 
ig sMEMORY MANAGEMENT EQUATES 
s 
1 jf SOSRSESSESSESESEEESESESESSSSEESESEEEEEEEAEEEERSSESARERERESEEEESE 
5 {FOSS SSESEEEEEEEEESSSESEESSSESAESSSESESEESESERSSERESESEHERESEEEE 
MMUSRO == 177572 ;STATUS REG O 
177574 MMUSRI == 177574 
177576 MMUSRO == 177576 
172516 MMUSRS == 172516 ;SHOULD ONLY BE PRESENT ON 22 BIT CPU'S 
172340 KPARO £== 172340 ;KERNEL MODE PAGE ADDRESS REG O 
172342 KPARL se 172342 
KPAR2 ae 172344 
: KPARS == i72 
i KPARS =s 172350 
1 172352 KP as 172352 
72354 KPAR6 ee 172354 
i 172356 KPAR7 s2 172356 ;ALWAYS FOR I/0 PAGE 
i 172300 KPDRO £== 172300 ;KERNEL MODE PAGE DESCRIPTOR REG O 
1 172302 KPDR1 ae 172302 
1 172304 KPDR2 == 172304 
1 172 KPDR3 as 
1 172310 KPDR4 se 172310 
1 172312 KPDRS ss 172312 
: 172314 KPDRG £== 172314 
5 172316 KPDR7 23 172316 
: 000001 MMON =e BITO ;ENABLE MMU - MMUSRO 
: : 000020 MM220N == BIT4 ;ENABLE 22 BIT MMU - MMUSR3 


——— - _ 


GLOBAL AREAS MACRO 
GLOBAL EQUATES SECTION 


1261 


eEaeee 


ee pet 
33s 
ow 


SHSRKS 
a ~ 


ee 
thr 


SesSatenessetausan 


De fk et be pak ee 


ee 
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ff PSSSSSSSESSSESESESSESSSAESSSESESESSEHE AHS SSSESSEKEASSSHESAHERAS EEE 
ff PPSSSSSSSSSSESESSESESSSEESSSSSSSASSSSAASSASSASSSSSSSSHSHSASEHRSEE 


; COMMAND PACKET OPCODES 


j 
§ fs PSSSSSSSESSEASSSSESASE ESSE SESSSSESSEESSAASSSESSSSAASHSAKESASSESLESE 
§ § SEEHESSESESAASESEESEESESESESESEASSSEASEEASSEASSAESESSSHESSEAESESSSESES 


OP.GDS == 01 ;GET DUST STATUS OPCODE 
OP.ELP == 03 s;EXECUTE LOCAL PROGRAM OPCODE 
OP.REC == 05 sRECEIVE DATA OPCODE 

OP.ABT == 06 ;ABORT PROGRAM OPCODE 

OP.END == 200 sEND MESSAGE FLAG OPCODE 


§ | SRSSSASSSESSAASESSSRESESSAEKSSASASESLARAESALASESAEKEAESE ASSESSES SS 
§ ] SRERSHSASSSSASEEASEEEAERERESSASSEESESESASAEASSSSSE SASSER SEKESEEESDE 


;DuP COMMAND ANO END MESSAGE OFFSETS 


‘ 
ff SSHRASSASSSSSSAEASERALA SERS KE SEEREASSSSESSESEKERESESSESSSESSESEESES 
fp RSRARAAREASRSSERSEASARESAESERESSESEAASSEESSESESLESESEEESESSESSESEESS 


P.CRF = 0 ;COMMAND REFERENCE NUMBER 
P.OPCD == 10 ; COMMAND 

P.MOD == 12 ;COMMAND MODIFIERS 

P.BCNT == 14 ;BYTE COUNT 

P.BUFF == 20 ;BUFFER DESCRIPTOR 

Pp. se 10 ;END MESSAGE ENOC 

P.S1S = i2 ;END MESSAGE STATUS 

P.FLGS == 17 ;END MESSAGE FLAGS 

P.IND1 == 20 31ST WORD OF PROGRESS INDICATOR 
P.IND2 == 22 ;2ND WORD OF PROGRESS INDICATOR 
P.TIMO == 24 ; TIMEOUT VALUE 


eee a rr ee ee 


SEQ 34 





——— a 


GLOBAL AREAS MACRO VOS.03 Wednesday 09-Oct-85 10:06 Page 33 SEQ 35 
GLOBAL EQUATES SECTION - 


1297 § { SESSSRESSSSAESSSSESSESSSSEASSSSESSSSESHSHSAAASAAKSSSSHSSSSSHHSEHEASS 
§ fF PSEASSSESSSESSESESESALESSSESEASESSSSSSAERSSSSASASHSSHSSSESSERESSEE 


;TUSA BIT DEFINITIONS 


é 
ff FRESSASEESSSESEAAAESESASESESESESESERESSESLASSSSESSSHAERSESELESESESESES 


s2833 


eet ff SEREESSSSESESESSESESESEASESESSSESHASSSASEKSSAAESSSEARSESHEAESSERAEESS 
1305 190000 ERR 2s 100000 ;ERROR 
1306 004000 Si ss 004000 sSTEP 1 
1307 000001 GO = 000001 3G0 
Eas: 
1310 § fF PREREAESEERESREEESERESESSAAESERERESSSSEEEEREESEEAEEESES EASE EESEDSE 
ETE: ff SEARSHESESSSSSSSESAEAAAAEEEEAESASERESSEAESEAESESESSESESASESELESSEE 
3 
1313 ce ge 
1315 | AAAAARARSASRAERARRAEERDERERERESAESASREEADEEEERSSEREEEREROREERES 
136 ff RARRAERESSSESESSASESARRESRERELSSESARESSESSERASASSSSARE SSS SESSESESEE 
13186 100000 OWN Bs 100000 ;DESCRIPTOR OWNERSHIP BIT 
1319 040000 FLAG as 040000 :DESCRIPTOR INTERUPT FLAG BIT 
1320 000200 IMM a2 000200 s IMMEDIATE COMMAND FLAG 
1321 000010 TF .BLK == 10 37 FORMAT 
13e6 000000 HSTIMO == 0 sHOST TIMEOUT VALUE 
EE: 000000 MSCPVR == 0 3sMSCP VERSION NUMBER 
1324 000004 RNGSTP == 4. sDESCRIPTOR RING STEP 
133° 000104 RSPSTP == 68. ;sRESPONCE BUFFER STEP 
13 


tw 
~~ 


0 a ee ee — 





_—— -——---— 
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GLOBAL ARE 

GLOBAL POUATES SECTION 
1329 2% SSEEESSSESESESSSESSSSSSSSAAAASSASSSSSHSSKESSSSSSSSAESSASSESSKSSEVKSEE 
Ett 33 SESESSSSERESAERESESESESEASSSSSSSSSSSSSSSSSASESHHSSRSSAAKSSKRESSKEKSEKSSES 

«1B I TMSCP DRIVER BUFFER OFFSETS 

| 1334 : Fy SESLESEASSEASESESSESRESSSESSSHEAESSSSSSSSSSAAASSASSHSHASSHSKSESEAEESEEE 

ett 33% SESSSSSSAASSSESESSESHSSSEKESSAAASRESSSSASSSASHSHSHEAOSSSSSHSSASESEE 

| 1337 000002 HIADDR == 2. ;DESCRIPTOR ADDRESS OFFSET 
1338 177777 CONID == <<, ; COMMAND/RESPONSE CONNECTION TYPE I.0. 
1339 177776 CRO ss “2. ;COMMAND/RESPONSE CREDIT LIMIT OFFSET 
1340 177774 HSGLEN == - -4.« ; COMMAND /RESPONSE MES L | 
1341 000005 TXFER == 5. ;ERROR FORMAT FOR “TAPE TRANSFER” ERROR LOG | 
1 000911 DRVER == 9. SERROR FORMAT FOR "DRIVE ERROR” ERROR LOG | 
1345 000000 CNTER == }. SERROR FORMAT FOR “CONTROLLER ERROR” ERROR LOG 


GLOBAL OaTA sect 


002234 


NAUSUMEO 
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ION 


-SBTTL GLOBAL DATA SECTION 


§ 4 OSSESSSSSSESSSSEEESESESESESESSSEEESESESSSSESESAERESSHSASSSASKEES 
jf PESSSSSSESESSSSSSESESSESSESASAESEESSSSSESSSSSASASRESSSHAHSRHSHEAES 
3 

; THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED 

s IN MORE THAN ONE TEST. 


3 
£ § SSSSSSSESSSESSESSEKSSSSSESSSSSSSSSSSSSKSSSSSSHSSHSSASHSHSSSSHSVVSKSS 
ff SSSSSESESSSSSSSSESESSASSSSESSSSSHSSSSSSSSSHHSAASASSHAHSSHHHSSHSSEE 


£ § SOSSSSSSSSSSSESSESESSSEKSSSSSSRESKASKSESSSHLASSSSHHSASSSSSSSHSHKS 
8 § SSSSSSSSS6SSSSSSSESESERSESELESHSESSSSSHKASSSSSSSSESSSSHSASSKOSSS 


: 

LUNBLK 
THIS BLOCK OF MEMORY IS USED TO STORE VARIABLE INFORMATION 
PERTAINING TO THE CURRENT LOGICAL UNIT UNDER TEST. LUNBLK 
IS POINTED TO THE PROGRAM BY R4 AND INOIVIOUAL 
LOCATIONS ARE ACCESSED VIA LITERALS DEFINED ABOVE. 


£ f SSSRSESSSASSSSSSSSSSAASSSSSSSSESASASSSSASSESKASSSSASHSHSHHSSSKASES 
§ fF SSSSESSSSSSSSKESSAESSASASLASSASASSSAASASSAASAKSSSSSSESSSSSSEHES 






LUNBLK: : -BLKW 15. 


fs SORASSSESSSSESSSSESSSESSSSSAHSSHELSHSASSASHSSASESEHKASARESEESKE 
fF SSSSRSSSHSAESSSSSSHSSSHESSSSSSEHSAKASSSEASSSSSESHSSSSHHASSESHAEEESE 


: 
;UQ-PORT NECESSITIES 
THESE TABLES ARE SET UP BY VARIOUS 
TESTS WITH VALUES TO BE WRITTEN TO 
T SON VALUES TO 
CHECK THE PORT AFTER EACH STEP TRAN- 
SITION OCCURS, RESPECTIVELY. 


ff SSHAAAOARHESSSSSSSSSESEHESSSSSESHEASSESSEEEEDEEEEEEEEEESEESESESEDS 
ff SSSOSSEHESESSSERESESESSESSESERASSSEAESSESESSESESEEEESEEEESSEAEESS 


STPTBL:: Biku 4 ;VALUES WRITTEN TO THE PORT 
CMPTBL: : -Bikw 4 ;COMPARISON VALUES 






eee 


SEQ 37 


A ee a 


=—4—45545 545555959599 
_ 








*e#eese«eet#eese# © @ © @€ @ &€ & @ 





> 


LOCATIC 





ELA 


UST word Gr PROGRESS rozcaToR 
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ne ee0eee0 
‘Ou COMPU PACKETS 
oo 2$6006006808006686868 
a3 
‘GET OUST STATUS COMMAND PACKET 
$8 
30° : TA My — 20 
GDUST: Le : 
OP .GDS.0 JOPCODE = 1 (GET DUST tale 





Mee 


\EXECUTE LOCAL PROGRAM COMMAND PACKET 
| pOeeseosenesesesesoncscosscscacecesecescosesesonsecacecenoeansss 


igen’ CREDITS * 0 
, nee 8 SEE ER, ORE 


§  POROLEKESSEHEAESEOSEESESESEEESEESERESSHEEEEESEEESESEEEEEEEEESEEOS | 


8 

sRECEIVE DATA COMMAND PACKET 

i 

§ § OODRO0S9060000460664400600060000800006005000000000068000000000008 


5 s1ze is DATA) 





= 

+ 

* 
EXELOC: . 

o™= 

. 

> 


TSTMAM: 





RCVDAT : 


ee 


2S ss 2b UNE OSS 4 biske OSS thn bestest 





*® «© ##és € # 


_ 


ee a 


er a A nrc NSS a 
Ca ~— ————— = 





LL 
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GOO At DATA SECTION _ 


1433 33 SEESSSSESSESSSSSSESSSSSSSASSAASSSSSSSSSASASSASSSAKSKSSAAASEHKAASVASS 
148s ‘ABORT COMMAND PACKET 
4 7 ; { FSESSESSESSEEESEESESSSESESERESASSESSSSAESSEAAAHARAASHSASSERSS ASHES 
1489 002462 000014 _WORD 12. ;PACKET LENGTH IN BYTES 
1490 002464 "BYTE 20 IMSGTYP = 1 CDATAGRAM); CREDITS = 0 
1491 002465 002 "BYTE 2 ‘CONNECTION ID = 2 (DUP 
1492 902466 900004 900000 ABORT: “WORD 4,0 COMMAND REFERENCE NUMBER = 4 
1493 002472 000000 000000 “WORD 0.0 
OP . ABT, ;OPCODE = 6 CABORT) 


1494 002476 000006 0900000 
1495 


eee - 


— — — 


GLOBAL 


ARE 
GLOBAL DAT 


002502 
002506 


022752 


022754 





MACRO VOS.03 Wednesday 09-Oct-85 10:06 Page 59 SEQ 41 


AS 
A SECTION 


000000 
000000 


000000 
000000 


5s SSSSSSSSESEEKS LEAAEEASSSASEASSESSAASSSSAAREAAESEAESESESSSEEHERSDE 
ff PHRASES SESESESEASSEEAAASESESESSSARERAAEAASESSSESESESESEHASTS 


{ 
;CLASS DRIVER BUFFERS 


3 
§ | SREASESSASSESSSASEASREREERASEREERSSSSSSSSASSSSSSHAASSASSESESARESSS 
ff PPRSSASEAEASESAESERERASERARERSERERESERSSSSAESSEESERSESSESSERSESESHASE 


_BLKW 2. ;TOP 4 LOCATIONS OF RESPONSE BUFFER 


RESPS6F : : 
RSPBUF : : .BLKW 66. ;sORIVER RESPONSE BUFFER 


§  SERSEASASESAESSESAEAEAARASSEASSAESERSSESESLASEERESE SESS EARSESSEESSRE 


§ ERPARAAAEAAESAESESSSAESSESAERALAESSRESARESEAESASAEARSSSESSESEE SES EESSEES 


; 
3U/Q PORT DESCRIPTOR RINGS 


a 
ff SSHEASASESSESARESSEEEEAAREAEREAESERAAEASASARSEAEEESSERESSSERASSESS 
§ fF SEARARASESEESRARESSRAEAESAEARERERERSSASAGASSASSESASEAEAS SAKE ENRSERS 


DSCRNG:: .BLKW 2. ;DESCRIPTOR RING 

RSPEND: : ;END OF RESPONSE BUFFER 
RSPRNG: : .BLKW 4, sRESPONSE DESCRIPTOR RING 
CMDRNG: : -BLKW 4. ;COMMAND DESCRIPTOR RING 
DSCEND: : sEND OF DESCRIPTOR RING 


fp PRSSESAEAAARESERESLEREAEELESEESEEEEERESRASEARASEALESLEEE SSE SEREEESE 
ff AARASRASEAEEAREHSEAEESERASEAERAASEESERESEESARESESSEAESESESESESEES SS 


; 
;CLASS AND PORT DRIVER VARIABLES 


3 
5p REARARAEREREARAEEESSESESESSERESASRERESEASESESEAERASESAEERACE SR SESEEESEEE 
ff PPRASRESSRESAESESAREERESSAARSERASARESASESAESESEESEESESESESSSESEAESES 


CNTHI: : -WORD O ;sVALUE OF THE HIGH TIMEOUT 
CNTFLG: : WORD O ;CONTROLLER FLAGS 
PCKSIZ:: .WORD O ;sPACKET SIZE IN BYTES 
Fs: . WORD 0 ;COMMAND REFERENCE NUMBER 

CMDCNT: : -WORD O ;COMMAND COUNT 

UF :: .BLKW 4096. ;sWRITE SUFFER 
CMDSAV: : .WORDB O ;COMMAND DESCRIPTOR SAVE 
RSPSAV: : -WORD 0O sRESPONSE DESCRIPTOR SAVE 


ff SEAAAERSSSARARESSERESSESSAEAAERESSSAAAELESESSESAEASESSSESESSESSESERE 
fF RSASAAAESRAALASSESSERASESESASARESSESESEAAAESASEESAEALES SSF ELERSESS 


‘MANUAL INTERVENTION INPUT DATA TABLE 


3 
5 RSRAAEARESSAEAASERELESESESASSREEESSRSEAEAASESSESEESESESESASSEEESSDS 
J PSRSERARESAERAASERSSEARASERESESSSESSASSSSSEAESERESALRERESASESASLESSS 


MANTBL : : toi 3 ;TWO BYTES OF INPUT, 3RD BYTE ZERO 


GLOBAL AREAS 
GLOBAL DATA SECT 


60 
1566 022762 
1567 022764 


1566 
1569 022766 
1570 


———————— 





ee ne ee 
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ION 


000000 
177777 


177777 


ff SSSSESSESAESEASSESESEESSSSSAEESSSSHESASSAAEESSESHEESSSARHSSSEESEAESREHES 
ff SPHERES SSESSSEAALERSESESSSESESSESSSAAEESESSE SE HESSSESSEHESSEAESESS 


; PROTECTION TABLE 


‘ 
§ { SAREAKSSESSSSSAAASESESERSASASSESESSESRASASELESESHASESSSEHESSSHRELS 
ff SSAESSESSSEAASSAESAASASSERSASESASSESEEAESSESESASSSESLERSESSESAESSEESS 


WORD 0 
. WORD 


ENDPROT 


SEQ 42 


a oo 


GLOBAL AREAS 
GLOBAL TEXT SECTION 


022766 124 125 070 





mee wee ae 
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-SBTTL GLOBAL TEXT SECTION 
ff POCA eESEESSESSSSEEEEEESSSSEASESESESASESSESEAEEESSEEEHEHSHAESEEEEE 
§  PPORESESEESESSESEEEESECHESESEEESEAESESESEESSESHSASEEAAEHESEHEESASE 


, THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 
; MESSAGES. AND ASCII INFORMATION THAT ARE USED IN 
; MORE THAN ONE TEST. 


> 
§ § SRSSSSSSSSESSEEASASEAASSERASAAESSSSESESASARSSSKESASHAESSSEASS SES 
§ I RSRSSSEESESESAEESSASASLESSESSASSEASASSASARASASASSSSSAHHSSESSKSEHADOHS 


ff PPSSSSEEAESEEERESRRERSS SERASEEESERSEAERASAASAASHASSSSEAHAESSESSESES 

' NAMES OF DEVICES SUPPORTED BY PROGRAM 

PTT TT TTT TTT TOR TeT TTT TTT TCTTTTeTTTTT Titi TT TTT Tt ttt tt ttt ttt tt 
DEVTYP <TUB1> — 


LSDVTYP:: 
-ASCIZ s#TU8is 
.EVEN 


SEG 45 
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GLOBAL TEXT SECTION 


LL ———ee 


iF ORMAT STATEMENTS 


| pOsesesecccscsccsccsesoccccccccsccacscccsacsncacacensesaccensens 








045 101 111 CLINE1:: .ASCIZ ?sAINIT SEQUENCE STEP @: #01? 
04 116 045 L :: .ASCIZ ?SNSASA REG: S068A EXPCTD: SO68A ACTUAL SA: #06? 
04 116 045 LINES:: .ASCIZ ?SNSAIP REG ADDRESS: #06? 
045 116 062 LINE4:: .ASCIZ ?SN2sAeeeeFAILING FRU: STSAeeeetNeN? 
045 101 i2z2 L :: .ASCIZ ?SARELOCATION CONSTANT: #068A_ VIRT. ADD: #8067? 
04 116 045 :: .ASCIZ ?SNSAEXPECTED: SO6SA RECEIVED: #06? 
4 101 LINE7:: .ASCIZ ?SAPHYSICAL ADD: #06? 
-EVEN 
045 116 045 WR1:: ‘conan ?SNSASA REG: SO068A SA CONTENTS: #06? 
04 116 062 PKSENT::.ASCIZ ?SN2sAPACKET SENT:? 
04 116 045 CREFNO::.ASCIZ ?SNSACOMMAND REFERENCE NUMBER: 06? 
045 116 045 OPCODE::.ASCIZ ?SNSAOPCODE: #037 
045 116 045 MODIFY::.ASCIZ ?sNSAMODIF TERS: 806? 
045 116 045 PRGNAM:: .ASCIZ AM NAME: SO38A SO358A SO38A SO3H8A SO3KA 8035? 
045 116 045 B8YTCNT::.ASCIZ T: ? 
rt 116 04S BUFDES:: .ASCIZ FER DESCRIPTOR: #067? 
04 116 062 PKRECV:: .ASCIZ IV 
045 116 045 ENCODE: : .ASCIZ #03? 
045 116 045 STATUS::.ASCIZ ? 
045 116 045 ::.ASCIZ VERSION: #06? 
045 116 045 T : .ASCIZ 3? 
045 116 045 FLAGS:: .ASCIZ 
045 116 045 F AULTC: : : -ASCIZ SUB-FAULT CODE: ? 


ia gees cscabalidbosvenabenevbessoctes 


;ERROR MESSAGES 


3 
fF APAERSSEAAASEASSASAREESASSSESASESLASHSSAEEESH ASSESS AESEEEESSSEHESEDAS 


+38 130 115 EMSGS:: .ASCIZ ?NXM ON READ TUIP? 
124 125 111 EMSG6:: .ASCIZ ?TUIP NOT O ON FIRST READ? 
116 130 115 EMSG7:: .ASCIZ ?NXM ON READ TUSA? 
i23 101 040 EMSGS:: .ASCIZ ?SA REG IN ERROR ON FIRST READ? 
123 101 040 EMSG9:: . ?7SA CONTENTS IN ERROR? 
i23 101 040 EMSG10::.ASCIZ ?5 IN DATA WRAP? 
105 130 120 EMSG11::.ASCIZ ?EXPECTED INTERRUPT DID NOT OCCUR? 
iii 116 124 EMSGi2::.ASCIZ ?INTRRPT OCCURRED WITH CPU PRIORITY = 7? 
123 101 040 EMSG13::.ASCIZ ?SA_NOT O IN PURGE/POLL? 
120 125 122 €ENSG14::.ASCIZ ?PURGE/POLL TEST 
105 124 EMSGI5:: IZ 7EXTENDED ADDRESS TEST FAILED? 
105 EMSG16::.ASCIZ ?”EXECUTE OMMAND TIMEOUT? 
042 i07 105 7::.ASCIZ ?"GET DUST STATUS” COMMAND 
042 107 105 8 ?°GET DUST STATUS” COMMAND FAIL 


EMSG18: : .ASCIZ URE? 
105 130 EMSG19::.ASCIZ ?*EXECUTE LOCAL PROGRAM” COMMAND FAILURE? 








—_— rr ce 





ee 
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Gt TEXT SECTION sil ea 45 







1659 025013 642 122 105 €MSG20::.ASCIZ ?*RECEIVE DATA" COMMAND FAILURE? 
1660 90 101 102 117 EMSG21::.ASCIZ ?ABORT COMMANDS DON'T WORK? 
1661 025104 111 11 124 €MSG22::.ASCIZ ?INTERNAL DRIVE TEST HUNG? 
1666 111 116 126 §©MSG23::.ASCIZ 7?INVALIO MESSAGE NUMBER FROM INTERNAL DRIVE TEST? 
166 2i 111 116 124 €MSG24::.ASCIZ ?INTERNAL DRIVE TEST FAILED? 
ié6s — 
1 124 111 115 WRERI:: .ASCIZ ?TIME OUT DURING PORT INIT? 

166 : 120 117 122 WRER2:: .ASCIZ ?PORT INIT FAILED? 

| pre 0 124 115 123 WRERS:: .ASCIZ ?TMSCP COMMAND FAILURE? 
1 : 117 122 WRER4:: .ASCIZ ?PORT DETECTED ERROR? 
3 0 3 111 116 103 WRERS:: .ASCIZ ?INCORRECT ye REFERENCE NUMBER RECEIVED. ? 
67 $3 116 045 WRERG:: .ASC 7SNSAREFER TO PATHFINDER FOR EXPLANATION OF CODES.? 
13) 0255 945 116 045 WRER7:: iy ?SNSARECEIVED INVALID MESSAGE NUMBER FROM INTERNAL DRIVE TEST. ? 
674 : 
167s j {SORSEESEREEEESESEESESESESESEREEEESEEDEASSSESEREREERESEEEAEOREEE 

3 
1677 sMISCELLANEOUS ERROR MESSAGES 
er POTTS TTT TTT TT TTT TTT TTT TT TTT TTT TTT TTT TTT ttt tt ttt 
1661 0 39 114 105 123 LESI:: .ASCIZ ?LESI ADAPTER? 
1662 0 103 117 1i6 CTRL:: .ASCIZ ?CONTROLLER/CABLE? 
16835 025670 114 105 123 SCT:: .ASCIZ ?LESI/CONTROLLER/CABLE? 
1684 025716 104 122 111 ORVE:: .ASCIZ ?DRIVE? 
4 
1687 § {PARRASRAEERSAREREESERASESAEESAEREERESEEESEEAEEEREREEESAREDSEERES 
; 

ig6s sMANUAL TEST MESSAGES 
1698 ff SPRREAASAKEAASAASEASERASESESRESAASASSEASOEKESRSEAESSSEAS SE REEAELESE 
1693 025724 045 116 045 T10MS1::.ASCIZ \sN#ATest 10: FUNCTIONAL FAULT DETECTION TEST (Drive Resident Test #1)\ 
1694 t+ 44 : 045 116 062 TiOMS2::.ASCIZ \sN2sAseee CAUTION #e2\ 
1695 0 045 116 045 T1IOMS3::.ASCIZ \SNSAThis test will destroy the data on tepe.\ 
1696 026134 045 116 045 T10MS4::.ASCIZ \ a atch TENS Db but THREADED.sN\ 
1697 90 1 045 116 045 TLIMS1::.ASCIZ \sNSATest 11: TENSION FAULT ISOLATI TEST (Drive Resident Test @2)\ 
1698 0 4 045 116 045 i: \SNSATest 12: VELOCITY FAULT ISOLATION TEST COrive ap Sant Test @3)\ 
18° 0 0 045 116 045 T1i3MSi::.ASCIZ \SNSATest 13: SELECT A DRIVE RESIDENT TEST (Drive Resi t Tests 1-99)\ 
1700 026536 5 116 062 MMSG::.ASCIZ \SN2sAeee REFER TO PATHFINDER FOR TEST REQUIREMENTS BEFORE PROCEDING #4e\ 
1701 0 6 105 156 164 SELTST::.ASCIZ \Enter drive resident test number (1-99)\ 
178 026716 111 163 040 QUESTN::.ASCIZ \Is the drive ready (To bypass this test hit return)\ 


GLOBAL ERROR REPOR 


1705 


ee 
Wile NAUhuUNeoD 


Ne pe EB Gee pot pe ie et dn pe fe ee 
RAS 
% 
~ 
g 


bp it tee Pe _ip De  dt Rne te 


927022 


739 
1740 027142 


a te 
ae : 
wo ~“ 
° ooo 
~ sais 
8 sseess2 
& SVvoennry 


me see ee ee 


002336 
022774 
000002 


0233235 
000002 


000006 
027142 
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SECTI _ 


-SBTTL GLOBAL 


Setanta — - 


SEQ 46 


ERROR REPORT SECTION 


ff SHSESSSSSSSSSSSSSASSESSSSESSSSSSSHSSSSSHSSHAHERSSSHSERSHNSSO SSS 
5 | SSESSSESSSESSSSSSSSSSSSSSSESASESSSSSSSSSSSESSESKSAASHKSSSESHHASSHKKES 


; 
;GLOBAL ERROR REPORTS 


OBAL ERROR REPOR 
AND PRINTX CALLS THAT ARE USE 
IT ALSO INCLUDE 
THE PRINTB AND PRINTX CALLS. 


T SECTION CONTAINS THE PRINTS 
D IN MORE THAN ONE TEST. 
S THE ASCII MESSAGES THAT ARE USED BY 


ff SOSSMSSESSSESAAERSAASSSSSSSSESAAESAASALASSASASHSEKAASSSESASSSSSSSSS 
sf PRERSEESEASSSSSAESSESASSASSSASAESKRESSAKASHSSSSAKSSSSKSSOKSSKSKESASS 


PRIINI:: 
le 


PRIDAT: : 


@LINE1,INISTP 
INISTP, -(SP) 
a 


@LINE2, TUSACR4), SAEXP, TUSASV(R4) 
TUSASY(R4), -(SP) 
SAEX?, -(SP) 

TUSACR4), -(SP) 

@LINE ac SP) 
@4,-CSP) 
“RO 
C$PNTX 
#12,SP 
FRUERR 


#LINE7 Re 

2. -(SP) 
@LINE7,-CSP) 
#2, or 
C8PNTX 
#6 .SP 
PRIDAT 
@LINES , KPARS ,R2 
R2, -(SP) 


#10,SP 


GLOBAL ERROR REPORT Se 


1741 027142 
027142 


174 

1744 027172 

1745 027172 
027172 
027176 
027202 
027206 
027210 
027212 

1746 027216 


1 

1746 027222 
1749 027222 
1750 


175 

1752 027226 

17 oatece 
027226 


1761 027 
027 
0273 


013746 
012746 
012746 
010600 
104415 
062706 


v 
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023260 
000003 
000010 
030624 


000000 
023110 
000002 


000006 
030624 


030624 


PRINTX 


@LINE6 .R1.(R2) 
(R2),-(SP 
R1,-(SP) 
@LINE 


@LINES, TUIPCR4 ) 
TUIPCR4), -CSP) 
INES, -€ 


oL a” SP) 
#2,-CSP) 
C$PNTX 


#_INE1,INISTP 
INISTP, -CSP) 
+e aaa 


@WR1, TUSACR4), TUSASVCR4 ) 
Lone naga oe 


C$PNTB 


#4 ,SP 
@CREFNO, CRS) 
CRS), -CSP) 
@CREFNO, -C(SP) 


Cs$PNTB 


me es sl 


SEQ 47 


; COMMAND/RE SPONSE PACKET PRINTOUT 





GLOBAL AREAS 


eee a eee eee nw a 


MACRO V0OS.035 
GLOBAL ERROR REPORT SECTION 


027344 
1762 027350 
027350 
02 
1763 027376 
02 


1764 027422 
027422 


1765 027 


1766 027 


1767 0275 
02 


772 
1768 027576 
027576 


062706 
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eee ee 


SEQ 46 


@6.SP 
—o 
10(R5).(SP) 
@OPCODE , -C SP) 

@2. -(SP) 

C$PNTB 

#6 ,.SP 
@MODIFY.12CRS) 
12CRS),-CSP) 
@MODIFY, -CSP) 

2, -(SP) 

Sree. B-L4CRS2» , <B. 25CRS)> <B, 26CRS)> - <B,L7ERS D0, «BRON». BRAND)» 
ZicRS).CSP) 
wa? 
oO 
16(R5S),CSP) 
15(RS).CSP) 


-CSP 
14(R5).CSP) 
@PRGNAM, -(SP) 


#6. 
—o 
10CR3).CSP) 
@ENCODE , -( SP) 
@2, -(SP) 
CsPNTB 


06, SP 
@STATUS,12(R3) 
12(R3), -CSP) 


- ————— - - 


GLOBAL AREAS 


027602 


027616 
1769 pe Sher 


0 

1770 027646 
0 

1771 ps Bh 


027716 
1772 027722 
177 
1774 0277 
1775 0277 


7762 
7764 
1777 027770 


030010 
030012 
1776 $ 16 
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GLOBAL ERROR REPORT SECTION —_ 


012746 
0600 


023755 
000002 


@2. -CSP) 


CSPNTB 


$6 .,SP 

@PRGVER .14(R3) 
14(R3),-CSP) 
OPRGVER, -( 


-(SP) 
@2,-C(SP) 
C$PNTB 
#6, 
@TIMOUT.<B,15(R3)> 
15(R3), (SP) 
@TIMOUT, -(SP 
@2.-(SP) 
cPNTB 
@6.SP 
@FLAGS. <B. 16(RS)> 
16(R3),(SP) 
@FLAGS, -(SP) 
CSPNTB 
26, SP 
FRUERR 


66 , SP 

#0rC ODE .<B8,10CRS)> 
10( RS). CSP) 
@OPCODE , -( SP) 
@2,-C(SP) 

SP ,.RO 

CSPNTB 

#6 .SP 

MODIFY ,.12CR5) 
12(RS),-CSP) 
@MODIFY, -CSP) 
@2,-CSP) 

SP RO 


ome os. eee oe 





SEQ 49 


; COMMAND/RESPONSE PACKET PRINTOUT 


——— 


SEQ 50 





sCOMMAND/RESPONSE PACKET PRINTOUT 





S 


fe 
apie 
na 


ODE .<B8,10CR3)> 








: : 


Pee ie 


a : 


, we wm 8 ef 

* egBcbt ce, hatte, Bue E Pabst 
heer een 44) SoBe eeu 

: ere pita Es s sneeee 

: sbntebintehatel 

* SSERRRRESERRSEESEDE ES SE EEEES 

: 

3 

a] 

| 

B ss 

ag a 

$3 

Bd 





—/s 
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1790 3 
7 4 
1791 4 
1792 ¢ 
1795 ( 
44 
1794 0 


1795 ( 


1796 ¢ 


1797 3 





ee | 





SEQ 51 


— 


Gi Beat 
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— 





aay Bae 





agit] nH] WEEE 






_ 


EE 
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TION 


ne 

eoeo 
w 
~ 


SEESESEEES 


BEEEE 


ee ee 


Gag Basses 
oo 
$ 
g 


1 
1 5 030656 005237 002316 
857 


0 
os0e62 
030662 000002 


-SBTTL GLOBAL SUBROUTINES SECTION 


§ §BSOS6S6662664666SFSSSSSHESESSERSASEASSESSASSSSHASAESEREAAHKSSHR AES 
§ § FSSSSESSESSESSSSESSSHSSSSSSHSSSSSASHRASASSSSHASEAASHSSKSRAAHSRSESSS 


; 

;GLOBAL SUBROUTINES SECTION 

i THIS SECTION CONTAINS ALL SUBROUTINES AND 
; INTERRUPT SERVICE ROUTINES THAT ARE AC- 

; CESSED FROM ANYWHERE IN THE PROGRAM. 


ff FESSSSSSSSESSESSSESELRSSSSSAASSESSSASSAKSHSSSHAERASASKASAKRASESHA KEE 
§ f PRSSSSESESSSSSESESSSASESSSSAESHSESHASSSAASHSHERSASSKASHSSH KAAS IAES 


bf PEASSAESESSSSSSSESEAASASESSESERASERASSSLSSAASSERERAAHARESKSESAKASS 
§ fPRSSASSESSEESSSEASEAEAASASREEESESALEASSAAASHASRSSESSERSEAARAKESASESRE 


$ 
3; TRAP4 


; ADDRESS OF THIS ROUTINE IS LOADED 

: INTO VECTOR 4 ER THE PROGRAM IS 

5 EMPTING TO ACCESS A PIECE OF W 

; FOR THE FIRST TIME. IT IS INTENDED TO 

; ATCH NON-EXISTENT MEMORY TIMEOUTS IN 

; THE NOT REALLY PRE- 
; SENT OR IS MALFUNCTIONING. IT SIMPLY 

; SETS A FLAG, INDICATING THE TRAP OCCURRED. 
é 


ff SHRESSSASASSASSERSAREREESARELESSSARADARSLAREREAEREREEESEARREESSE 
f eRSRAASSEAAREERAERERAERERAEKAERALESARASRAREEAAARAEREEKEEREREEE SS 


BGNSRV TRAP4 
TRAP4: : 


INC TRP4FG ;SET THE FLAG - TRAP OCCURRED 
ENDSRV 


L10004: 
RTI 


SEQ 55 
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GLOBAL SUBROUTINES SECTION 


18663 
1864 
1865 § | PRESAESESEEEEESESESESESESSESESESERESERERSEREEEEEEERESEREEEEE AED 
1866 eee 
18686 SINTRCV 
1669 : THIS IS THE TUB1 INTERRUPT HANDLER USED BY THE PRO- 
1870 : GRAM WHEN INTERRUPTS HAVE BEEN ENABL FT 
1871 $ BRFALG IS CLEAR, THE ROUTINE SETS A FLAG INDICATING 
1872 F THE EXPECTED INTERRUPT T OCCURRED. IF BRFLAG IS SET. 
1673 : IT INDICATES THAT PROCESOR PRIORITY WAS SET TO A 
1874 3 LEVEL THAT SHOULD HAVE INHIBITED THE INTERRUPT, SO 
oe 3 THE ROUTINE SETS AN ERROR INDICATOR. 
1877 TTT TTT TT UTES TTT TTT T TTT TTT TTT TTT TTT tt TTT ttt 
1878 5 fp PRRAREAEEEEERERESSASEERESEEEESSAEAEERESSAAEEE ESSER ERESEEEEE ODE 
1683 030664 BGNSRV INTRCV 
1006 030664 INTRCV:: 
1685 $ BIT #BRFLAG,LUNFLG(R4) :IF NOT PRIORITY LEVEL TESTING 
1886 : BEQ 5$ ; THEN SKIP AR 
18687 : MOV a LUNFLGCR4 ) ; ELSE SET FAILED BIT 
tt 3 BR EXTINT ;RETURN 
tt 030664 052764 000002 000014 5%: BIS @INTFLG,LUNFLGCR4) ;SET THE FLAG 
1892 030672 EXTINT: 
1893 030672 ENDSRV 

030672 L10005: 

030672 9000002 RTI 
1894 


eal 


GLOBAL 


AREAS MACRO VOS.03 
GLOBAL SUBROUTINES SECTION 


030674 
030674 


030674 052764 


030702 


030702 
, 030702 000002 


000001 
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000014 


§ i PSSASSSSSESSSSSEAESESSSSSESSESESSHSSSSSASSSSESESSESSSSESHSEHSSSESSEEEESS 
Pe 


‘ILLINT 
; THIS HANDLER ROUTINE’S ADDRESS IS LOADED INTO. THE 
; CURRENT UUT'S VECTOR FOR ALL TESTS THAT DO NOT EN- 
ABLE DEVICE INTERRUPTS. 


‘ 
§ § PSSSESESSERERE AESESEESSELSER ASSES SESSESASEASESHSESSHASSSESHEESESEESEEE 
ff FSSSSSSSSSSESHSSESESASSESSESSESSEHEHESSSESSSASESESHESSESESESSESESESESS 


BGNSRV ILLINT 
ILLINT: : 


BIS @DRPFLG,LUNFLGC(R4 > 


SEQ 55 


GLOBAL SUBROUTINES SEC 


| 
1943 
1944 0 
194s 
1947 
1948 
1949 

0 

19 
1982 

| 

| 


030766 
§ 4a 
030774 


vos .03 
TION 


177746 
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CC — —_— -_—— — 


§ { FSSSESSSESSSEESESSSSEESESESSESSSSSSSSASSSSSEASHSSESESSSESSESESOSSSS 
ff SSSSSESSESESSSSASSSSSASESESSSSSSSHSHSSSSESSSEEHESSSSSEHSSESSSHSEESEE 


CHKCAC: : 


10%: 


CACHE 
TESTED. 


SETVEC #@VEC4,@TRAP4, OPRIO7 
MOV @PR -(SP) 


IS USED IN THE DATA WRAP TEST TO CHECK IF 
MEMORY IS PRESENT AND ED ON T 


HE SYSTEM BEING 
EDING 


ENASL 
IF SO, CACHE IS DISABLED BEFORE PROCE 
TO PREVENT THE TEST FROM INCORRECTLY REPORTING AN ERROR. 


ff SROSEASSSSESESEASESSSEAESESSESESSSASEASASSEASESESHSSSSESSESESSSESESSESS 
§ PASE SSSSESESSASESSASSESESSESSEASSESEESSSEESESSSESSSEESSSESESSESSEEESS 


;SET UP FOR POSSIBLE ILLEGAL INT 


;CLEAR “CACHE PRESENT” FLAG 
;READ CACHE CONTROL REGISTER 
;CACHE PRESENT ? 

;NO, BRANCH 

;DISABLE CACHE 

;SET “CACHE PRESENT” FLAG 
;RESTORE VECTOR 


;MORE HOUSEKEEPING 


SEQ 56 


— ee 
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1957 


S22233 


1974 030776 
1975 030776 


a 
© 


i977 


Us vd ot bate tent nit nnn ent 


ecoo scooocoooo“oooco“e]o 


B8aan 


coed 
No 


coocooooco 


ooco 
at at Ct at 


POP eho Ot he Fe pe he fe pe pee 


orp $e eo poe OOO 


bb 
o 


Sie Soo 


31 


Fo nh ine et ee et ee 


$z3 


co ° 
> 
& © 


ti et 
pe 
os 
na 


012727 
005367 
te 
001367 
pag ph 
eo oee 
005737 
012727 
00 7 
goss 
g083e7 
098737 
oones? 
000402 
005037 


012700 


000340 
030656 
000004 
000003 
000010 
177572 
000001 
002116 
177772 
177756 


002316 
002314 
172516 
000001 
002116 
177772 
177756 


0vu2316 
002314 


002314 


000004 


ff SSSSSSSSESSSSSSESSSSSESSSSSSSSSESSSSSHASHSHSHHKSSSSSSHHSSSSHAAESS 
§ fF PSSSSSSSSESSSESSASSSSSESSSSSESSSSSSSSSSSLSSHSSSHSSHSSSHHSHSSKSASS 


3 
sKTTEST 
THIS SUBROUTINE IS USED BY THE INIT CODE TO 
DETERMINE IF THE MEMORY MANAGEMENT UNIT IS 
PRESENT. IF SO, IT RETURNS A FLAG IN THE 
SET STATE. OTHERWISE THE FALG IS CLEAR IN 
WHICH CASE TEST SEVEN IS BYPASSED. 
3 
§ § PSSSESSSSSSSSSSSSESAESESESSSSSESSSAASSSKSSHSHSHKSSSSSAHHSSEHSHKSSS 
ff PERHSSSASSSSSESESSSSESSSASASSSSSHASSSSSEKRASASSSSSHSEKRESSSSHASS HASHES 


KTTEST:: 
SETVEC @VEC4, @TRAP4, OPRIG7 
MOV @PR -CSP) 


;SET UP FOR POSSIBLE NXM 


MOV @vec4, -CSP) 

MOV @3,- ) 

TRAP css 

ADD #10,SP 

TST MMUSRO ;ARE YOU THERE, MMU? 

DELAY 1 ;GIVE NXM TIMEOUT A CHANCE 
MOV @1,(PC)+ 

. WORD 

MOV LSDOLY.(PC)+ 

. WORD 0 

DEC -6(PC) 

BNE .-4 

DEC -22(PC) 

BNE .-20 

TST TRP4FG ;IF NXM OCCURRED 

BNE NOKT 3 HEN NO MMU IS PRESENT 
INC KTFLAG ; ELSE SAY WE FOUND 18 BIT SO FAR 
TST MMUSRS ;NOW LOOK FOR 22 BIT MAPPING 
DELAY i sGIVE NXM A CHANCE 

MOV @1,CPC)-« 

. WORD 

MOV LSOLy,CPC)>+ 

. WORD 

DEC -6(PC) 

BNE > 

DEC -22C0PC) 

BNE .-20 

TST TRP4FG ;IF NXM OCCURRED 

BNE KTEXT ; THEN 18 BIT IS ALL WE'VE GOT 
INC KTFLAG ; ELSE SAY WE'VE GOT 22 BIT 
BR KTEXT 3 AND BRANCH AROUND NEXT 


NOKT: CLR KTFLAG 


KTEXT: CLRVEC évEC4 
MOV #VEC4,RO 


;NO MMU - CLEAR FLAG 
sRESTORE VECTOR 


ee meme — 





a 
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1994 ost ias 105037 002316 CLR oSere MORE HOUSEKEEPING 
1333 931160 000207 RTS PC ’ 

1996 

1997 


GLOBAL ARE 


MACRO V 
GLOBAL SUBROUTINES SECTION 


2002 
2003 


333 


2007 


EEEEEEEEEEY 


0 
; 
4 
5 
6 
7 

sess 031162 


293% 
2024 031210 
2025 


012746 
C12746 


016446 
012746 
104437 
062706 
000207 


000000 
030674 
000004 
00C003 
000010 
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§ f FSSSSSSESSSSESSSASSESESESSSSESSSASASESSSSSSSASSSKHSSSS SHS KASS HSAKESD 
OO  — ———— 


SRSTVEC 
; THIS ROUTINE IS CALLED FROM VARTOUS PLACES 
IN PROGRAM TO SET THE UUT" S T 


THE ADDRE 
WHICH WILL CATCH ag DEVICE INTERRUPTS 
Ag tee “ILLINT”. INTERRUPT PRIORITY 


ff SERASASSSSSAAAAASSESESSEASSASSESSSSKASKSSAAKSSAAKHSSAASRSEKRAKRSO SAAS 
ff RERSSRSSESSSSEAESKSESAERSESSESSAAASSSAASHSSAASAERSASSSSRASASKAEKS 


RSTVEC:: 
SETVEC TUVECCR4), @ILLINT, @PRIOO 
MOV #PRIOO, -C SP) 


MOV @ILLINT, -(SP) 
MOV TUVECCRA), -(SP) 


MOV ¢ 
TRAP C$SVEC 
ADD #10,SP 


RTS PC 


2 


SEQ 59 


GLOBAL AREAS 
GLOBAL SUBROUTINES SECTION 


20 
2031 
2032 
2033 
2035 
203 
38 
2039 


Berit 


SSEEEee 


oo 
A 


— 


0 
2057 031250 


2058 

2059 031252 
031252 
Ostace 


MACRO V 


012746 
012746 
016446 
012746 
104437 
062706 


000207 
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000004 000014 





SEQ 60 


ff FSSSSSESESESSESES ESAESESSSHSSAESESSESESERERASSSHSAHSHSSSHSS SHEDS 
Pe 


S VECTOR 

; THIS ROUTINE IS CALLED FROM VARIOUS PLACES 

PROGRAM TO SET THE UUT'S VECTOR WITH 
S OF ER ROUTINE WHEN DEVICE 


ALLOWING 
S ger, PRIORITY 
IS SET 10 7. IF AN TT TERRUPT TeCURS IN THIS 
CASE. AN ERROR IS RETURNED BY THE HANDLER 
ROUTINE, “INTRCV”. 


ff SSSCASASSASSSASSSSSESSSASASESESSSAASAAHKOSSSSSSERARESSSSE SHAE SSSESS 
ff SRARSEKESASESSSSESESEESEAAEEESSELESESESESSSESSESASESSSESASHSEKRSESESSES 


ee 62 e+ @+ @F Ge Gt Ge Ge Ge GF 
x 
bet 
S 
AH 
of 
< 
Lol 
= a 
oh” 
~4 
~~ 
2° 


VECTOR: : 
BIT @BRFLAG,LUNFLGCR4) ;1F FLAG IS SET 
; THEN SKIP TO SECOND HALF 
SETVEC ;ELSE LOW PRIORITY 


TUVECCR4), GINTRCV, @PRIOO 
@PRIOO, -C SP) 


I .* 
MOV TUVECC(R4), -C SP) 
@3,-(SP) 


MOV -C 
TRAP CsSVEC 
DO e 


AR 10,SP 
BR EXTVEC ;RETURN 

5$: SETVEC pos 0 ad I lala @PRIO7 sHIGH PRIORITY 
MOV #PRIO Pp) 


MOV @INTRE v, -CSP) 
MOV TUVEC(R4), -(SP) 
@3,-CSP) 


MOV 
TRAP ee SVEC 
ADD 


EXTVEC: RTS PC 


—————— a eee * 
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2069 

2070 jp ERSSSESEAEEEEEEEEESESSEESEERESEEESEESEESEEAESESSESEEESEEEEDAEEE 
207k s seanseosoonooescosonconnossooqnonsasonsneqonsoossoosoeeeeseseees 
2073 i PDELAY 

2074 ; nes ROUTINE IS USED THROUGHOUT THE PROGRAM TO PROVIDE 
2075 : VARIABLE DELAY TIME. THE DELAY WILL BE 

2076 ; INSTRUCTION EXECUTION TIME . TWO VALUES MUST 
2077 ; INE CODE oR TO AY: 

2078 ; * . IF SUFFICIENT CALLS TO PDELAY ARE 
2079 ; MADE SUCH THAT THE OUTER COUNT IS EXHAUS . ROUTINE 
2060 ; RETURNS “TOUT” EQUAL TO 1, INDICATING TIMEOUT HAS OC 
2081 $ “INNER” SHOULD BE RE- LOADED BY MAINLINE CODE, PRIOR TO 
eons ; CALL TO PDELAY WITHIN A TIMING LOOP. 

208 ; 

2084 5p PRRSSAAERESARESASESESESERESESEREEAEEEESSESESESESERESERESSEEEDEE 
2085 jp PRRREEEEEEAESEEASSSEEEESSEESESERESEEEEESEEESSSESEESSEEEESEEEESES 
2090 

2091 031302 PDELAY:: 

pao} 031302 005037 002350 CLR TOUT ;CLEAR TIMEOUT INDICATOR 

2093 0 005337 002344 DEC INNER ;IF COUNT NOT EXHAUSTED 

2094 031312 001373 BNE PDELAY ; THEN KEEP LOOPING 

2095 031314 005337 002346 DEC OUTER ;IF MAJOR COUNT NOT O 

208 031320 pad ys BNE PDL YEX ; THEN LEAVE WITH STATUS = OK 
2097 031322 237 002350 INC ; ELSE SET TIMEOUT 

2098 031326 000207 POLYEX: RTS PC 

2099 

2100 


GLOBAL 


AREAS MACRO VOS.03 
GLOBAL SUBROUTINES SECTION 


2105 
2106 


MUNN NNNYKYNNANNNAND 
Po bebe he be be eee 
De IAMbuNrOoSe a 


PS ee Re ee 
Hoes doubun oO 


Neen nn eee ETRE ce Am 
VMUVMUNVNVNNMMMA 


031406 
031410 
O3141¢ 
031420 


031424 


002340 
000000 
000001 
002116 
177772 
177756 
000002 
004600 


002272 


02340 





ae 
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ff SHHESSSSSSESSSHSSASHSSASAERESSSASSSHASSHSSSSSSSSESESSSSHSSSESAESES 
Pe ee 


‘STEP1 








CALLY 
TO ITS te REGISTER. 
THE SA_ REGIST 


WILL READ TNSURE 

STEP 1 BIT IS SET AND THE ERROR BIT IS CLEAR. 
IT WILL THEN WRITE THE FIRST LOCATION OF THE 
S UP BY MAINLINE CODE) TO T 
UUT'S SA REG. ST COMPLETE SUCCESS - 
FULLY THE ROUTINE ST” CLEARED; 


RETURNS “STEP 
OTHERWISE “STEPST” IS RETURNED INDICATING A 
FAILURE OCCURRED. 


§ f SPSASASSSSSSHSSAAAAEEKEESSEHAESEAESESESESESESEASSES ASSESSES SSEESES 
ff PSSSSSSSSSSEASSAEEASEAE RSS GEKEAERSEASSESESSSELEESSSEESSESSSSEESESESS 


STEP1:: 

CLR STEPST ;CLEAR THE STATUS INDICATOR 

MOV #0, 8TUIP(R4) INIT THE UUT 

.WORD O 

MOV LSOLY.(PC)+ 

-WORD O 

DEC -6(PC) 

BNE .-4 

oe -22CPC) 

MOV GTUSACR4 } . TUSASV(R4 ) ;GET THE SA REG CONTENTS 

CMP 668 .S1!8.01!8.00, TUSASV(R4) 

rid ALL THE RIGHT BITS AREN'T SET 

BNE STPLER THEN TAKE ERROR EXIT 

MOV hake STUSACRA): ELSE WRITE HOS7T'S STEP 1 RESPONSE 

BR STPi AND LEAVE SHOWING SUCCESS 
STP1IER: INC STEPST :;SET ERROR INDICATOR 


STP1EX: RTS PC 


SEQ 62 


GLOBAL 
GLOBAL 


AREAS 
SUBROVTT 





mm me 
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012702 
012703 

303 
063703 
912722 

303 
C013574 
000207 


000024 


ff SSSSSSSSESSSSSSESSSSSSSSSSSSESSHSSSSSSSSSSESSSSSSEHHSSSSHSSESSSSE 
ff SSCSSSSSSSSSESASSSESSSESSSSSSSESSSSSKSSSSSSESSSSESSESSHASSEEHSESELS 


3 

;BAKPAT 

s SUBROUTINE WILL FILL THE COMMUNICATION WITH AN 
3 1‘S DATA PATTERN. LENGTH OF THE AREA IN USE 
3 BY THE CURRENT TEST IS CONTAINED IN “CMARLG”. 


. 
§ § FBSSEESSSESESSESESESSSSEAESSESESSSSESSSSSSSHSESESSSSHSESSSSSHSSEHESSES 
ff SSRSSSESSESESESESSSSESSESSEERESHESSSSSSSESESSSSSHHSSASSSESSOSSESSE 


BAKPAT: : 





MOV @COMMBF .R2 STARTING ADORESS OF COMM AREA 
MOV 020. .R3 ‘BUFFER LENGTH IN FRONT OF ARCA 
ASL sé ‘MULTIPLIED BY 2 
ADD —S«-CMARLG..R3 ADD COMM AREA LENGTH USED 

18: MOV $-1,.(R2)= ‘WRITE THE DATA 
DEC —OséiRS ‘IF NOT DONE YET 
BNE 18 THEN DO IT AGAIN 
RTS —s PC 


SEQ 65 





2% SSESSSSESSSHSSSESSSSSSSESSSESSSESKSSSSSSSHSSSSSSSSSSHSSSSASSHSHVSSVSSHSS 
ss SESSSSSSSSSSSSSSSSSESSSSHSSSSSSSSSSSSSHSSSSSHSHSSSSSSSSSSSSHHVSSE 









THIS ROUTINE IS CALLED BY TESTS DOING THE PURGE 
IT IS USED TO VERIFY THAT THE PORT LEFT THE 
Le CEDINE Ae 3 i te tom A ; 


WORSS AREA 
TO MAKE SURE THE PORT DIDN'T GO 





THE COMM AREA. 


as SSSOSKSSSSSSSSSSSSSSSSHSSSSSSSSSANHSSSHSSSSSHSSHSSSSSHSSSSSHSHKVSVOSE 
s3 SESOKSSSSSSSSSHSHSSSSSSSSNSSSSSSSSSSSSSSSSSSSSSSSSSHSSHHHVSSHSHHSSE 




















CHKCOM: : 
77777 MOV #-1,R1i 
MOV @COMMBF , 
000022 MOV 
1%: CMe R2)- 
pe ie 
RS 
BNE 13 
CLR Ri 
002326 HOV CMARLG.RS 
S$: TST CR2)+ 
- 
3 
BNE 53 
77777 MOV @-1.R1 ;TEST DATA FOR PRINTOUT 
MOV €20.,R3 ;SET UP FOR POST COMM AREA 
10s: CMP Ri, (R2)+ ;IF NOT ALL 
13% ; THEN GO REPORT ERROR 
& :IF NOT AL 
10¢ ; THEN GO CHECK ANOTHER 
BR CKCMEX ; ELSE RETURN | 
ist: Sw @2,R2 ;ADJUST ADDRESS FOR PRINTOUT 
330 HOV #.E51,FRUIS ;LOAD FAILING FRU 
i 114 06. .LSTEST IF ST 8 
| ; THEN DO ALTERNATE PRINTOUT 
} 1. ENSG14,PRIPAD ;"PURGE/POLL TEST FAILED” 
CéEROF 
“Won 1 
BR 258 ;COMMON EXIT 
208:  ERRDF 2,EMSG1S.PRIVAD ; "EXTENDED ADDRESS TEST FAILED” 
TRAP CHERDF 
“WORD ENSG1S 
“WORD PRIVAD 
25%: 0000  LOGUNT 





gees owen es 


-* -_ 


ee 


———— 





CO 00 EF Setenatay O-08-S OS  S 


031614 000207 CKCMEX: RTS PC 





LT AR me 


SEG 65 


A AA et - - 


ae 


1626 


SORIA UE O 
cooococ oocoooo oo 
= 
= 
an 


aia“ 


VUburr 


012703 
012702 
005001 


010122 
0127235 
062701 
022701 
001370 
010137 
012737 
032737 
001406 
012737 
012737 
012737 
000207 


010174 © 


000000 
032140 
004000 
002336 
000030 


002736 
000002 


172356 
002314 


172356 
172516 


177572 


002736 


000012 


ff PRSASSSESSERSSASASAAKESSAESARSSSSESSSSSEASSSESSEKAAKESSSASESESS LSS 
§ ASRS SEESESSSESESEERESEAESEREREASESSREEAESSSASESSESEAAESEAAEES ESSE 


INTMMU: : 
MOV #KPDRO RS ;START OF PDR ADDRESS RANGE 
MOV @KPARO .R2 ;START OF PAR ADDRESS RANGE 
CLR Ri ;STARTING RELOCATION VALUE 
i$: MOV R1,CR2)+¢ ;LOAD RELOCATION VALUE 
MOV #77406 ,CR3)+ ;LOAD P 
ADD #200 ,R1 ;ADJUST RELOCATION VALUE 
CMP #2000,R1 ;IF NOT AT THE END 
BNE i$ ; THEN DO ANOTHER ONE 
MOV R1,KPARS ; ELSE SET THIS REG TO NEXT 32K 
MOV #7600 , KPAR7 :18 BIT I/0 PAGE 
BIT @BIT1L,.KTFLAG ;1F 22-BIT BUS NOT AVAILABLE 
BEQ 2$ ; THEN GO TURN MMU ON 
MOV #177600 ,KPAR7 ; ELSE SET 22 BIT I/0 PAGE 
MOV @MM220N,MMUSRS ; AND ENABLE 22 BIT MAPPING 
2s: MOV @MMON , MMUSRO ;TURN ON THE WHOLE THING 
RTS PC 
PR T TNT ® ‘ ‘ ‘ . *« * bs 
MOV R1,@TUIPCR4) ret TTAa 378 THE ORIVE 
MOV €INTTBL RS ;PUT THE TABLE ADDRESS INTO R3 
MOV 1 ;SET UP TO BEGIN AT STEP 1 
CLR STP ;CLEAR THE STEP TRACKER 
LOOP: MOV #24, ,CNTHI :S° ¢ UP_THE TIME OUT COUNTER 
CLR R2 ;CLCAR R2 
ILOOP: INC R2 ; INCREMENT HI TIME OUT VALUE ? 
BNE 2$ :IF NOT, BRANC 
DEC CNTHI sELSE, DECREMENT LO TIMEOUT 
BNE 2$ ;BRANCH IF NO TIME 
MOV ‘SAVE THE THE ERROR PRINTOUT 


BTUSACR4), Ms = thal 
ERRDF 51.,WRER1,WRINT 

TRAP CSEROF 

-WORD 51 


SA FOR 
;PRINT PORT INIT FAILURE 
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a 
2237 5 $OOO0066404606460056OESFSSSSSSESSESESEESEESHESESESESSAESESESEOSEAEDE 
2238 5 $hOSS44F6466FES4444FSFSSSSEEEESEESERERSEESEEEEREEEHESEEDEEEL EOD 
2259 s 
240 :Ith my 
241 ; THIS SUBROUTINE IS CALLED FROM TEST 8 TO INITIALIZE 
ss4 : Y MANAGEMENT REGISTERS. ALL PAR’ S EXCEPT ONE 
224 : ARE SET UP TO MAP VIRTUAL ADDRESSES INTO THE LOWEST 
2244 $ 32K OF PHYSICAL MEMORY. AR7 IS SET UP TO MAP TO 
2245 ; THE I/0 PAGE. THE PAR REGISTER THAT C S 
2246 5 THE VIRTUAL ADDRESS OF THE COMMUNICATION AREA IS SET 
2247 ; UP TO POINT TO THE SECOND SIC . 
2248 : ALL POR‘'S ARE INITIALIZED TO THE SAME VALUE eh 
rete : UPWARD EXPANDABLE, READ SURI TE ACCESS ENABLED, AND THE 
; FULL 8KBYTE PAGE IS ACCESSIBLE. 
; 





—————— cr 
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Gt OBAL SUBROUTINES SECT - 


031772 -WORD WRER1 
031774 027226 -WORD WRINTO 
2293 031776 DODU LOGUNT ;DROP THE UNIT 
031776 013700 002332 MOV LOGUNT ,RO 
0352002 104451 TRAP Cs000U 
2294 032004 BR 100% oexey ROUTINE 
295 032006 037401 900002 2s: BIT @TUSACR4),R1 . ‘a. FOR STEP BIT FROM DRIVE 
032012 001755 BEG wily SOMETHING SETS 
2297 032014 032774 100000 000002 BIT #ERR , BTUSACRE ) ‘CHECK F 
2 0 0014135 BEQ 3$ ;NO ERROR, KEEP GOING 
2 0 4 017464 000002 000012 MOV @TUSACR4 ), TUSASVC(R4 ) ; SAVE THE SA CONTENTS 
2 0 ERRDF 52.,WRER2,WRPRTE ;PRINT ERROR 
0 104455 TRAP CSE 
032034 -WORD 52 
032036 025502 -WORD WRER2 
] 027252 -WORD WRPRTE 
23501 0 2 DODU LOGUNT ;DROP THE UNIT 
oasose 013700 002352 MOV LOGUNT , RO 
9 104451 TRAP Cs000uU 
2302 032050 ©00452 BR 100$ ;EXIT ROUTINE 
2303 0 te tH 002336 3$: INC INISTP ; INCREMENT be STEP TRACKER 
2 ] 012374 MOV CR3)+, BTUSACR4E ) ;WRITE WORD FROM TABLE TO CONTROLLER 
2 ] 006301 ASL 1 :SHIFT TO NEXT STEP 
2506 0 100324 BPL ooP ;IF NOT AT LAST STEP LOOP 
2307 032066 012702 002716 MOV @RSPRNG ,R2 ;PUT THE RESPONSE DESCRIPTOR ADD R2 
: 032072 012703 002 MOV SPBUF ,R ;PUT THE RESPONSE BUFFER ADDRESS IN RS 
032076 01032 S$: MOV R3,.CR2)¢ ;PUT THE BUFF ADD IN THE DESCRIPTOR 
2310 032100 012722 100000 MOV »CR2)+ ;SET THE DESCRIPTOR TO THE CONTROLLER 
est 032104 703 000104 AOD @RSPSTP RS ;STEP TO THE NEXT BUFFER SLOT 
312 032110 022703 002716 CMP @RSPEND , RS ;ARE WE AT THE END OF THE BUFFER ? 
23135 032114 1370 BNE S$ ;NO, KEEP GOING 
2314 032116 012737 002716 022752 MOV @RSPRNG ,RSPSAV ;SET UP TO USE Cinee RESPONSE BUFFER 
2315 032124 012737 002726 022750 MOV @CMORNG , CHDSAV ;SET UP TO USE FIRST COMMAND BUFFER 
2 He 0321352 5037 002744 CLR :SET THE COMMAND REFERENCE @ TO 0 
¢ +. 032136 7 100$: RTS PC ;RETURN 
23 9 ee A DATA TABLE 
sitet 104400 NTTBL : . 104400 
2321 032142 002716 .WORD RSPRNG 
sues 032144 000000 -WORD O 
2325 032146 000001 -WORD GO 


“ - ae 2 ed el 


- + 


A — TL TTT A 
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2325 0321 000014 ORVTST: CLR LUNFLGC(R4) ;CLEAR 
2326 Oasise oos087 goesse CLR PROGRL ; CLEAR PROGRESS INDICATOR 
2327 032160 005037 002360 CLR PROGRH ;CLEAR PROGRESS INDICATOR 
032164 612737 025647 002330 eCTRL .FRUIS ; OEF AUL TROLLER 
2 032172 004737 031716 PC .PRTINT DO 
23 9 176 032764 000001 000014 @ORPFLG.LUNFLG(R4) :IS THE ORIVE AVATL 
i 
2332 0 012705 002410 @EXELOC.RS ;SET UP FOR “EXECUTE LOCAL PROGRAM” 
2333 O32212 004737 032350 PC, CLSDRV ;GO ISSUE THE C 
© 0 032764 000001 000014 @DRPFLG, LUNFLG(R4) ;IS THE DRIVE AVAILABLE 
335 0 001 1008 ;NO To 
36 032226 012705 002436 @RCVDAT ,RS ;SET UP FOR "RECEIVE DATA” 
7 032232 204737 032350 PC.CLSDRV ;GO IS HE C 
5324 10$: ;CLEAR LOW DELAY COUNTER 
2 ; 012702 000024 @20. .R2 ;SET UP HIGH ER 
2340 032; 737 000200 177560 30%: @B1T7,RCSR ;"CONTROL C” I 
1 032252 001021 50s ;YES, BRANCH 
2 3225 1 Ri ;DELAY BETWEEN “GET DUST STATUS” COMMANDS 
2 032: 001372 308 
2 0322 C05302 R2 
345 032262 001370 30% 
2 032264 012705 002370 @GDUST,RS ;SET UP FOR “GET DUST STATUS” 
132270 737 032350 PC, CLSDRV ;GO ISSUE THE C 
0324 74 032764 000001 000014 @DRPFLG.LUNFLG(R4) :IS THE ORIVE AVAILABLE 
2 03230z 901021 100$ ;NO, BRANCH TO EXIT 
032304 032764 000020 000014 @DONEFL . LUNFLG(R4) ; INTERNAL TEST DONE ? 
2 i 03. $i2 001015 100% ;YES, BRANCH TO EXIT 
032314 900750 3 
2 032316 0137 177562 50%: ;GET DATA INPUT FROM KEYBOARD 
0323: 0427 000200 ;STRIP PARITY 
2355 03232 7 000003 ; "CONTROL C“ INPUT ? 
2 0 3 001344 ;NO, BRANCH 
7 O33 012705 002466 403: ;SET UP FOR “ABORT” 
: 0 om 004737 032350 CL ;GO ISSUE THE COMMAND 
0 104422 C#BRK 
ii 032346 000207 100$: ;RETURN 
: 5 0323 CLSDRV:: 
0 004737 032456 is: PC ,PRTORV ;GO SEND THE COMMAND 
2367 0 032764 000001 000014 20RPFLG, LUNFLGC(R4) :IS THE DRIVE AVAILABLE 
2368 0 001034 100 ;GET OUT IF NOT AVAILABLE 
2369 002436 RS, @RCVDAT ; "RECEIVE DATA“ COMMAND JUST ISSUED ? 
2370 001431 100$ ;YES. BRANCH TO EXIT 
2371 72 004737 032556 PC, CORECV ;GO CHECK FOR ANY NEW RESPONSES 
2372 376 032764 0v0001 000014 @ORPFLG. LUNFLG(R4) ;I1S THE DRIVE AVAILABLE 
2373 0 001023 1063 ;GET OUT IF NOT AVAILABLE 
2374 032406 004737 033042 PC, CHKRSP ;GO CHECK CONTENTS OF RESPONSE 
375 032412 032764 000001 000014 @DRPFLG, LUNFLG(R4) ;IS THE DRIVE AVAILABL 
2376 0 001015 100 ;GET OUT IF NOT AVAILABLE 
2377 0 022705 002436 @RCVDAT,RS :WAS IT A “RECEIVE DATA” COMMAND ? 
2378 0 1012 100$ ;NO, BRANCH TO EXIT 
2379 032430 004737 033326 JSR PC, CHKMSG :GO CHECK MESSAGE FROM INTERNAL TEST 
2380 032434 032764 000001 000014 BIT @DRPFLG, LUNFLG(R4) 51S THE DRIVE AVAILABLE 


-_— ee eee 






a 
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2381 032442 001004 BNE 100$ ;GET OUT IF NOT AVAILABLE 
5382 032444 012705 002370 MOV @GDUST RS :"GET DUST STAUS” PACKET ADDRESS 
5383 032450 004737 032556 JSR PC, CDRECV GO GET L 
2384 032454 000207 100$: RIS PC ; RETURN 
2386 
2387 
2388 
2589 932656 PRTDRV: : 
3390 .32456 013701 022750 MOV CMDSAV,R1 ;SET UP COMMAND RING POINTER 
2391 0 010511 MOV RS, (RL) ;PUT THE PACKET ADDRESS INTO THE DESCRIPTOR 
2392 032464 012761 100000 000002 MOV .HIADOR(R1) ;SET OWNERSHIP BIT OF THE DESCRIPTOR 
2393 032472 005774 000000 TST STUIP(R4) ;READ THE IP REGISTER 
2394 032476 005774 000002 TST aTUSACR4) ;READ THE SA REGISTER 
2395 032502 001413 BEQ 10$ ;BRANCH IF NO ERRORS 
3396 032504 017464 000002 000012 MOV @TUSACR4 ), TUSASV(R4) SAVE THE SA FOR THE ERROR PRINTOUT 
2397 032512 ERRDF 53.,WRER4,WRPRTE ;PRINT PORT DETECTED ERROR 
032512 104455 TRAP CSERDF 
032514 000065 WORD 53 
032516 ¢25351 “WORD WRER4 
03 027252 "WORD WRPRTE 
2398 032522 DODU §_ LOGUNT ;DROP THE UNIT 
032522 013700 002332 MOV LOGUNT ,RO 
032 104451 TRAP  C$DO0DU 
2399 032530 000411 100$ ;GET OUT 
2400 032532 062701 000004 10$: ADD @RNGSTP RI S ADJUST RESPONCE POINTER FOR NEXT TIME 
2401 032536 022701 002736 CMP @DSCEND.R1 ;ARE WE AT THE END ? 
2408 032542 001 BNE 153 ;NO, GET owt 
2403 0 012701 002726 MOV @CMDRNG ,R1 ‘SET R1 TO TOP SBUFFE 
2404 032 010137 022750 iS$: MOV R1, CMDSAV :SAVE THE COMMAND RING LOCATION 
2405 032554 100$: RTS PC ;RETUR 
2406 
2407 
2408 
2409 
2410 0325 CORECV:: 
2411 032556 004737 032670 i$: JSR PC, PORECV ;CALL PORT DRIVER RECEIVE 
2412 032562 032764 000001 000014 BIT @ORPFLG,. LUNFLGCR4) ;IS THE DRIVE AVAILABLE 
2413 032570 001036 BNE 100 ;GET OUT IF NOT AVAILABLE 
2414 032572 032764 000020 000014 BIT @DONEFL , LUNFLG(R4) ; INTERNAL TEST DONE ? 
2415 0 001016 BNE 10$ ;YES, BRANC 
2416 032602 011103 MOV cR1) R3 ;SET UP RESPONCE BUFFER POINTER 
2417 0 026365 000000 000000 CMP P. CRE(R3),P.CRFCRS) ;IS THIS THE RESPONSE THAT IS EXPECTED ? 
2418 032612 001411 BEQ i ; YES, BRANCH 
2419 032614 022705 002370 CMP 8GDUST.RS ;WAS IT A “GET DUST STATUS” COMMAND ? 
2420 932620 1022 BNE 100$ ;NO, BRANCH T EXIT 
2421 032622 012705 002436 MOV @RCVDAT RS ‘GET START OF "RECEIVE DATA“ PACKET 
242 032626 365 000000 CMP P, CRFCRS), P.CRFCRS) :IS IT A "RECEIVE DATA" RESPONSE ? 
2423 0 1014 BNE 100 ‘NO. BRANCH TO EXIT 
2424 032636 012761 100000 000002 10%: MOV SOUN.MIADDR(R1) ‘GIVE THE CONTROLLER THE RING BACK 
2425 032644 701 000004 ADD @RNGSTP,R1 ;ADJUST RESPONCE POINTER FOR NEXT TIME 
2426 032650 022701 002726 CMP ; ;ARE WE AT THE END ? 
2427 032654 001 BNE 15$ ;NO, GET OUT 
2428 032656 012701 002716 MOV @RSPRNG,R1 ‘SET R1 TO TOP BUFFER 
2429 032662 010137 022752 153: V Ri, RSPSAV : SAVE THE POINTER FOR NEXT TIME 
2430 032666 100$: RTS PC ; RETURN 








Wednesday 


906008 002736 


GLOBAL AREAS MACRO VOS.03 
GLOBAL SUBROUTINES SECTION 
a8 
He oReeTe osaney 
2436 032702 005002 
sis Giziae See 
440 032710 0053 7 002736 
441 032714 001025 
442 032716 022705 002370 
2443 032722 001410 
032724 
] 104455 
Serras Secsss 
0327 030626 
2445 0327 
0327 013700 002332 
032740 10445 
2 032742 0004 
2447 052744 
032744 104455 
032746 000067 
0327 4637 
0327 030624 
es ; 0137 002332 
760 108481 
449 . 26 
4 7 017464 000002 
451 0 032764 100000 
4 8 001415 
"1 8 012737 025670 
0 04455 
0 000076 
Siasis 34338 
2455 0 
013700 002552 
04451 
4 04 
0 032761 100000 
0 pot hes | 
0 00020 
za6e 
aes 03 026365 000000 
65 001003 
soe 005763 000012 
oe 0 0014 
68 0 2705 002410 
2469 0335064 1416 
2470 033066 022705 002456 


000012 
000012 


002330 
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PDRECV: : 


1%: 
5%: 


6$: 


10%: 


go shAaAS eS 


“i 


CHKRSP: CMP 


St: 


BEQ 
CMP 


22 


RSPSAV,R1 
#5, CNTHI 


55. ,EMSG17,FRUERR 
CSEROF 


LOGUNT 

LOGUNT ,RO 

C$D00U 

100$ 
BTUSACR4 ), TUSASVC(R4 ) 
@BIT15, TUSASV(R4 ) 


203 

@LSCT .FRUIS 

56. ,EMSG9, WRPRTE 
$EROF 


amt Nel 


ual ath tactile 
P.STSCR3) 
Htevoc.as 

@RCVDAT .RS 


eee =e «<< 


SEQ 70 


a" Ri 


SET rs Up THE Tine Out COUN 


tCNCREMENT HI TIME OUT VALUE ? 
OVERFLOW YET, a 
INCREMENT HI TIMEOUT 


;EL 
;KEEP GOING NO TIME OUT YET 

WAS eceT” DUST STATUS" COMMAND ? 
i . 


PRINT E 
; "EXECUTE LOCAL PROGRAM” COMMAND TIMEOUT 


;GO DROP THE UNIT 


;GET OUT ON ERROR 
;"GET DUST STATUS" COMMAND TIMEOUT 


;GO DROP THE UNIT 


;GET OUT ON ERROR 

:GET SA CONTENTS 

EO ER FOR SA ERROR 
E RANCH 


RR 
;LOAD FAILING FRU 
;PRINT "SA CONTENTS IN ERROR” MESSAGE 


;DROP THE UNIT 


;GET OUT ON ERPOR 
:1s THE SLOT SET “O US ? 
—_— TILL “IMEOUT OR SUCCESS 
; 


;DID COMMAND RE*ERENCE NUMBERS MATCH ? 


:NO, BR 

‘WAS STATUS “NORMAL “? 

see BRANCH 

+74 © IT AN ae LOC PROG” COMMAND ? 
‘WAS. IT A "RECEIVE DATA” COMMAND 7? 





EE EE A 


- ee ree ee eee 


2471 033072 
2472 033074 


PPP Perr rre 


enqpenapenennage 


~% 

_ 

: 
—~ 


nN 
— 
a 
_ 


se eeenNen gs 


Lune 
>| 


SSSsesgssosesass 
cooooooscoocooc 
“ > o> ot >t oe 
| 
eNwOCOC 


GcBeat SUBROUTINES SECT 


pad 
s24783 
104455 
024704 
256 
e13700 
sose3t 
04455 
aH 
027306 


ganas 


oeFo1s 


013700 
451 
61 


sore 


37 


o12787 
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002466 


002332 


002332 


002332 


7%: 


9$: 


15%: 


THE 


°e3 
2 
2 


=f 
x 
B 


anne 


sige 


Fy 
2 


gg GGTEOEGPRRIECRT® 


56. ,EMSG19 EL PERR 


CSERDF 

58 

EMSG19 

LOGUNT 

LOGUNT , RO 

CsDODU 

100% 

59. ,EMSG20,RCVERR 


CSERDF 
59 


60. ,EMSG21,FRUERR 


CSEROF 


@TEST.9, LUNFLGCR4 ) 
P.FNDCCR3), #201 
P.FLGSCRS),97 

6% 


100$ 
P.INDICR3),PROGRL 
ae 
@DRVE .FRUIS 

61. ,EMSG22,,FRUERR 
CSERDF 


6 
EMSG22 





ee SS 


SEQ 71 


pik BRANCH 
PRINT “GET DUST STATUS” COMMAND FAILURE 


;DROP THE UNIT 


;GET OUT ON ERROR 
;PRINT "EXECUTE LOCAL PROGRAM” COMMAND FAILURE 


;DROP THE UNIT 


;GET OUT ON ERROR 
;PRINT “RECEIVE DATA” COMMAND FAILURE 


;DROP THE UNIT 


;GET OUT ON ERROR 
;PRINT “ABORT” COMMAND FAILURE 


;DROP THE UNIT 


;GET OUT ON ERROR 

;WAS IT A GET DUST ST"TUS COMMAND ? 
;NO, BRANCH TO EXIT 

;ARE WE IN TEST 9 ? 

;NO, GO CHECK PROGRESS INDICATOR 
;CORRECT ENDCODE ? 


3 ® ERROR 
;CORRECT FLAGS ? 
;NO, ERROR 
;SUCCESS, RETURN 
OW WORD OF PROGRESS INDICATOR 


:CHECK L 
;PROGRESS BEING MADE BRANCH 
s CHECK HIGH WORD OF PROGRESS INDICATOR 


‘LOAD FAILI 


NG F 
sPRINT “INTERNAL TEST HUNG” ERROR 


eee 


GLOBAL AREAS 
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GLOBAL SUBROUTINES SECTION 


033276 


ag 


: 


preter 
seseess 


SOUS ° 
ve 


%w 

+ wu 

~ — 
oo ~ SUPURDYYKOow a 
coooooooocooooooo“oco“oc“ooo 
AMUUUUGUUU GIGI WI G8 GI GI GG 

~~ 
On. ano 





013700 
104451 


000406 
016337 
016337 
000207 


002332 


000020 
000022 


002332 


025716 


000014 


————eszrzsszsyszziattt te LLL 





A A as wt 


SEQ 72 
_WORD FRUERR 
D0DU  $LOGUNT ;DROP THE UNIT 
MOV LOGUNT .RO 
TRAP  C$DODU 
BR 1008 ;GET OUT ON ERROR 
Sos: MOV P. IND1(R3).PROGRL [UPDATE LOW WORD OF PROGRESS INDICATOR 
MOV P_IND2(R3). ; HIGH WORD OF PROGRESS INDICATOR 
100%: RTS 
CHKMSG: MOV RI ;GET START ADDRESS OF MESSAGE BUFFER 
cMPBOtsé(R21:+) , @L :NORMAL COMPLETION MESSAGE ? 
BEQ 100$ ;YES, BRANCH TO EXIT 
CMPB Es (R21), 82 :ERROR COMPLETION MESSAGE ? 
BEQ is ;YES, BRANCH 
CMPB Es« (R21). @3 ;NORMAL COMPLETION WITH INFO. MESSAGE ? 
BEQ 100% ;YES, BRANCH TO EXIT 
ERROF 62.,EMSG23, INVMSG ;INVALID MESSAGE FROM INTERNAL TEST 
TRAP CS$ERDOF 
.WORD 62 
"WORD €MSG23 
“WORD INVMSG 
DODU §_ LOGUNT ;DROP THE UNIT 
MOV LOGUNT, RO 
TRAP C$D0DU 
BR 100$ ;GET OUT ON ERROR 
1s: MOV @ORVE ,FRUIS ;GET FAILING FRU 
MOV OF AULTC, ;GET ADORESS OF ERROR MESSAGE 
MOVB 2C(R1),20(R2) ;1ST ASCII BYTE OF FAULT CODE INTO MESSAGE 
MOVB 3(R1),21(R2) SCII BYTE OF FAULT CODE INTO MESSAGE 
MOVB 4(R1).46(R2) ;1ST ASCII BYTE OF SUB-FAULT CODE INTO MESSAGE 
MOVB 5(R1).47(R2) ;2ND ASCII BYTE OF SUB-FAULT CODE INTO MESSAGE 
ERRDF 63. ,EMSG24,INTMSG :PRINT ERROR MESSAGE 
TRAP § CSERODF 
.WORD 63 
“WORD €EMSG24 
"WORD INTMSG 
BODU = LOGUNT ;DROP THE UNIT 
MOV LOGUNT ,RO 
TRAP  C$D0DU 
100%: IS @DONEFL , LUNFLGCR4) ;SET DONE FLAG 
RTS PC ; RETURN 
ENDMOD 


. TITLE MISCELLANEOUS SECTIONS 
.SBTTL REPORT CODING SECTION 


BGNMOD 
.SBTTL. INITIALIZE SECTION 


+ 
; THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED 
; AT THE BEGINNING OF EACH PASS. 
aliens 


<eeeesse ween cma A TL LS 





7 033474 
see Site 


2591 12 
3s 35 033514 

oss a6 
2594 SH 
3596 see 
2597 O83s82 
3399 033534 


am 
e as a 
i 


t Osss7é 


012700 
104447 
103421 
012700 
104447 
103415 
012700 
104447 
103411 
012700 
104447 
103422 
012700 
104447 


103465 
000423 


005037 


104433 
005237 


————— —— , 
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000937 


000034 


000035 


000036 


002312 


002120 


002332 


002012 


LSINIT:: 





T 

READEF EF .START 
MOV on . START,RO 
BCOMPLETE START 
BCS START 
READEF @€F .RESTART 
MOV @EF .RESTART RO 
TRAP CSREFG 
BCOMPLETE START 
scs START 
READEF EF .PWR 
MOV lt »RO 
TRAP CSREFG 
BC E START 
BCS TART 
READEF #€F .NEW 
MOV @EF .NEW,RO 
TRAP CSREFG 
BC TE NUPASS 
BCS NUPASS 
READEF #EF .CONTINUE 
MOV @EF . CONTINUE ,RO 
TRAP CS$REFG 
BCOMPLETE END 
BCS END 
BR NEXT 
MOV @0,PASCNT 
CLR KTFLAG 
MOV @LUNBLK ,R4 
CMP #1400,L $HIME 
BHIS NUPASS 
JSR PC ,KTTEST 

CSRESET 

ASCNT 
MOV @-1,LOGUNT 
INC OGUNT 
CMP LOGUNT ,L SUNIT 
BEG NO 
GPHARD LOGUNT,.RO 
MOV LOGUNT, 
TRAP C$ 


SEQ 75 


:IF THIS IS A FRESH START 
; THEN GO TO START 

;IF THIS IS A RESTART 

; THEN GO TO START 

;IF POWER-FAIL OCCURRED 

; THEN START FROM THE BEGINNING 
;IF THIS IS A NEW PASS 

; THEN SKIP START UP CODE 
;IF THIS IS A CONTINUE 

; THEN SKIP ALL INIT CODE 
;JUST HERE FOR NEXT UUT 


; INITIALIZE PASS COUNT 
:IN CASE WE'RE STARTED > THAN ONCE 

Ra WILL ALWAYS POINT r0 LUNBLK 

;IF <= 28KWORDS OF MEMORY PRESENT 

; THEN SKIP NEXT 

; ELSE SEE IF MMU IS PRESENT 


;CLEAR THE WORLD 


;UPDATE THE PASS COUNT 
SINITIALIZE LOGICAL UNIT COUNT 


i w TO NEXT UU 
F WE'VE PASSED. MAXIMUM UUT'S 
; THEN LEAVE INIT 


;GET P-TABLE FOR THIS UNIT 


—~ ae ee 


—— 
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INITIALIZE SECTION _ = 








2616 033626 BNCOMPLETE NEXT ;TRY AGAIN 
eal 033626 103366 NEXT 
2620 033630 011064 000000 MOV (RO), TUIPC(R4) sPUT IP REG ADDRESS IN LUNBLK 
1 033634 012064 000002 MOV (RO)+, TUSACR4) AND ANOTHER COPY IN LUNBLK 
‘ 033640 062764 000002 000002 ADD #2, TUSACR4) ‘MAKE IT THE SA REG ADDRESS 
2623 0 012064 000004 MOV (RO)+, TUVECC(R4) ;GET THE VECTOR INTO THE LUNBLK 
2624 033652 011064 000006 MOV CRO), MSCPUNCR4 ) ;PUT THE T/MSCP UNIT @ IN LUNBLK 
2625 033656 004737 031162 JSR PC .RSTVEC ‘SET UUT VECTOR FOR ILLEGAL INTRPTS. 
2626 033662 PRINTF @IMSG,LOGUNT :"TESTING UNIT N* 
03 013746 32 MOV LOGUNT. -(SP) 
3 012746 033712 MOV @IMSG, -(SP) 
033672 012746 2 @2,-CSP 
033676 O1 f 
033700 104417 TRAP  C$PNTF 
. 033702 062706 000006 ‘ 
eH 033706 END: 
2629 033706 EXIT INI} 
033706 104432 TRAP C$EXIT 
sliek 033710 000032 .WORD 110007-. 
2642 033712 045 116 045 IMSG: .ASCIZ ?sNSATESTING UNIT #D1sN? 
264 “EVEN 
2644 
2645 033742 ENDINIT 
033742 L10007: 


033742 104411 TRAP CSINIT 


—_ 


— 





— - ee ee eee ee 
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CLEANUP CODING SECTION 


200? .SBTTL CLEANUP CODING SECTION 
2649 oe 
3620 ; THE at CODING SECTION CONTAINS THE CODING THAT IS PERFORMED 
33 ; AFTER THE HARDWARE TESTS HAVE BEEN PERFORMED. 
26 i-- 
2653 
2654 033744 
2655 033744 LS$CLEAN: : 
2662 033744 032764 9000000G 002234 BIT @TOFLAG, LUNBLK(R4 ) ;IF NOT HERE FROM TEST 9 
gees 033752 001400 BEG ENDCLE ; THEN SKIP THE REST 
2665 sEVENTUALLY MORE CODE WILL BE PLACED HERE TO GUARANTEE THAT AN a 
ees ;COMMAND IS ISSUED TO THE UUT TO STOP EXECUTION OF THE LOCAL PROGRAM 
sees 033754 005064 000014 ENDCLE: CLR LUNFLGCR4) ;CLEAR OUT THE LUN FLAGS 
2670 sNOTE: THIS LINE OF CODE MAY +3 TO BE REMOVED TO HANDLE tC FOLLOWED 
2671 ;BY A PROCEED COMMAND CORRECTLY 
2672 033760 CLRVEC TUVECCR4) ;PUT “TRAP CATCHER” INTO VECTOR 
033760 016400 000004 TUVECCR4) RO 
73 033764 1044 TRAP CscveECc 
74 osa7es EXIT CLN 
033766 104432 TRAP CsEXIT 
7s 033770 000002 .WORD 110010-. 
sei 
.EVEN 
2689 
2690 033772 ENDCLN 
033772 L10010: 
033772 104412 TRAP CSCLEAN 


MISCELL ANE 
OROP UNIT SECTI 


cB 


96 

2697 

2696 
2699 033774 
033774 

2700 


2706 
14d 033774 012764 000001 000014 


2709 034002 
034002 000167 
000000 


034006 104455 
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.SBTTL OROP UNIT SECTION 


3+* 


: THE DROP-UNIT SEC 


; TO NO LONGER BE TEST 


L$DU:: 
MOV 
EXIT 
.EVEN 
ENDDU 
L10011: 
TRAP 


@ORPFLG,LUNFLGC(R4 ) 
DU 


J$ JMP 
L10011-2-. 


C$0uU 


— THE CODING THAT CAUSES A DEVICE 


;LETS PROGRAM KNOW IT'S DEAD 


SEQ 76 


—e een 


Se 





——— 


: 
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i 





000167 


104452 


Giz78t 00901 00000 


O12787 000010 0000006 


-SBTTL ADD UNIT SECTION 


+* SHE ADD-UNIT SECTION CONTAINS ANY CODE THE PROGRAMMER WISHES 
* "70 BE EXECUTED IN CONJUNCTION WITH THE ADDING OF A UNIT BACK 
s 60 THE TEST CYCLE. 

gee 


BGNAU 
LSAU:: 


1.10012: 
CsAU 


-TITLE HARDWARE TEST 

HELP =0 :; CONTROL LISTING OF HELP INFORMATION 
; HELP=0 NO LIST 
; HELP=1 LIST 


sONEFILE= ; CONTROL USE OF SOURCE FILES 
; ONEFILE IS NOT DEFINED ASSEMBLE EACH SOURCE FILE — 
; ONEFILE*ANYTHING ASSEMBLE ALL SOURCE FILES TOGETHE 


.SBTTL TEST 1: EXISTENCE VERIFICATION TEST 
} §OOSO00000006660046000680688608060688006088066666606606086600600068 
PA 


;TEST i _- EXISTENCE VERIFICATION TEST 
THE EXISTENCE OF THE UUT BY 






TH 
ASE OF A NON-EXISTENT 


33 SESSSSSESAASSESSSSSESSEHASSEHS ASSESS SSAESESOSSSESESHSSSESEEHEEEHEEES 
33 SSEHRSSARSAKSSKSSS SSS SSASSSAEASSSSESSESSSKESESESESESESSSEEEESESEHEEESE 


ST 
Tis: 


#1, ITRCNT ‘SET UP FOR ONE TEST ITERATION 
TST PASCNT 3iF PASS 0 

BEQ Ti.i ; THEN START TEST 

MOV #1C, ITRCNT ; €LSE DO MULTIPLE ITERATIONS 





-_ 


eee ee -— 


fest 1: EXISTENCE VERIFICATION 


2617 034042 000240 


Bie sussts 
sett 








egg Ee 
Sm £ && 





- § 


09-Oct- 


Ti.1: 
1%: 


58: 
1.10014: 


Rang aEEUUGEEEEE OG 


“ 
wn 
“4 





PHY | ETE 


10:06 Page 59-i 





i 
@1.CPC) 
LEOLY.CPC)+ 


-6(PC) 











:CLEAR NXM TRAP FLAG 
:SET UP VECTOR 4 FOR NXM TRAP 


:;WRITE THE IP REGISTER 
s;MAKE SURE TIMEOUT CAN OCCUR 


;IF NO TRAP OCCURRED 
; THEN CONTINUE TEST 


s IDENTIFY FAILING FRU FOR PRINTOUT 
3; "NXM ON READ TUIP” 


:LO0P ON ERROR? 
sDROP UNIT 


;CAN'T CONTINUE 


sRESTORE VECTOR 4 


sIF UNIT WAS NOT DROPPED 
; THEN CONTINUE TESTING 
s ELSE LEAVE TEST 


SEG 76 


HAR 
TES 


2643 pt py 4 


2644 
2645 
2846 


2868 
2869 


230 
30 


362. 104410. 
000062 


oeeats 
034434 


MACRO V 


012727 
000000 
013727 
C00000 


000240 
012737 
104455 

7 


00000 
024212 
027222 


104406 


013700 
104451 


017464 


012737 
012737 


104455 
000010 


024235 
027026 
104406 


— er 
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002316 


000031 
002116 
177772 
177756 


002316 


025647 


002332 


000002 
004000 


004000 
025670 


TEST vos.0 
1: EXISTENCE GERIFICATION TEST 


002330 


000012 15%: 
000012 


002334 
002330 


C$BSUB 
TRP4FG 


@VEC4 , @TRAP4 , OPRIO7 
SP) 


@TUSACR4 ) 


2s. 
625. ,(PC)+ 
LS$OLY,(PC)- 
-6(PC) 
-22(PC) 
.-20 
TRP4FG 

15$ 


ight FRUIS 
7,EMSG7,PRIERR 
C$ERDF 


EMSG7 
* PRIERR 


CS$CLPi 
LOGUNT 
LOGUNT ,RO 
C$D00U 


SUB 
“CSESCAPE 


L10015-. 


ATUSACR4), TUSASV(R4 ) 
eae ie toed 


#8 .S1,SAEXP 
@LSCT FRUIS 

8 es EMSGS a PRISA 
cSERDF 


c 
8 
EMSGS8 
PRISA 


CsCLPi 
LOGUNT 


;CLEAR NXM ERROR FLAG 


;SET VECTOR 4 FOR NXM TRAPS 


;READ THE SA REGISTER 
;WAIT TO ALLOW NXM TRAP 


;IF NXM DID NOT OCCUR 
; THEN CONTINUE TEST 


;s IDENTIFY FAILING FRU “= PRINTOUT 
;"NXM ON FIRST READ OF S 


;LOOP ON ERROR? 
;DROP UNIT IF NOT 


_ sLEAVE TEST 


;GET A COPY OF SA IN MEMORY 
SIF STEP 1 BIT IS SET 
; THEN TEST 1 IS COMPLETE 


sLOAD “EXPECTED FOR PRINTOUT 
s IDENTIFY FAILING FRU FOR PRINTOUT 
;"SA REG IN ERROR ON FIRST READ” 


;LOOP ON ERROR? 
;DROP UNIT IF NOT 


SEQ 79 


034434 


MACRO V 
013700 
104451 
104410 
000002 


104401 


03 


002332 


16%: 


L10015: 


20%: 


25%: 


L10013: 
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tect 1. EXISTENCE VERIFICATION TEST —_ 


CsCvec 
@ORPFLG,LUNFLG(R4) 


25$ 
ITRCNT 
25% 
T1.1 
TST 


CSExIT 
L10015-. 


CsETSsT 


;LEAVE TEST 


;CLEAR ERROR o aaieae 
;RESTORE VECTOR 4 


ag UNIT DROPPED 
THEN LEAVE NOW 
VIF ITERATIONS EQUAL 0 


; THEN LEAVE TEST 
; ELSE GO BACK FOR MORE 


SEQ 80 


1 


is 


2697 
2696 


33322233 


=e 
-~ 


- 
~ 
© 
: 
w 
m 
pe 


Buus 
DUD 
eee 
ge 


+3 


Se ECESERE 


33 
Q~ 


Seen coooo 


EE 


pag fd 
013737 
052737 
012737 
012737 
0 7 


000014 
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HARDWARE TEST MACRO VOS.03 Medneoday 
TEST 2: INITIALIZATION TEST (POWER UP MICROD 


IAGNOSTICS ) 


.SBTTL TEST 2: INITIALIZATION TEST (POWER UP MICRODIAGNOSTICS) 


ff SSSSSSSSSEEESSSESESSSESSESSSESSSSSEASSSSSSSSESHSSSESSSESSSSESESEETSS 
eee ee 


H INTERRUPTS 


;TEST 2 - INITIALIZATION TEST o UP MICRODIAGNOSTICS) 
THIS TEST STEP THE UQ-PORT NE ees ohh 
S DISABLED. AS SULT, T 


ROM 
RESIDENT MECRODIAGNOSTICS WILL BE RUN TO COMPLETION AND 
CHECKED FOR ANY ERRORS. 


5 fF SSSSSSESEESESESAESESEESSESASESSESESESESESESESESSASESSESEEHESSESESESSESESESS 
fs SSSA LSESSSOHASSASS SESE SESSEAASSEEEESHESESESEAHESESSESESESEESESESESES 


T2:: 


i$: 


2s: 


BGNTST 


MOV 


3g¢822 836 


mo 
b4 
wm 


33823 3 


@DRPFLG,LUNFLGC(RS ) 


2s 
#10. ,.ITRCNT 


° 
NISTP 







60, 
1.1 


00,S" ie 
#68 .$1!8.08'8.01! 
@COMMAR , STPTBL +2 





PC, STEP1 
STEPST 
T2EXT 


9. .EMSG9, PRIINI 
cSERDF 


9 
EMSG9 
PRIINI 


CSscLPl 
LOGUNT 





TUVEC(R4), STPTBL 
STPTBL 


STPTBL 
#1044 TP 


;IF UUT NOT DROPPED 
; THEN OO TEST 
; ELSE GET OUT 


:;FAILING FRU IN CASE OF ERROR 
;SET UP FOR ONE TEST ITERATION 
;IF FIRST PASS 

; THEN START TEST 

; ELSE DO 10 ITERATIONS 


;SET UP RS AS INDEX TO STEP TABLES 
RROR PRINTOUT 


DE 
;DIVIDE BY FOUR 
:;PUT_ VECTOR a 3 COMPARE 


Pp 
;STEP 


;GO DO IT 

IF STATUS OKAY 

; THEN DO NEXT TEST 
:"SA CONTENTS IN ERROR” 


;LO0P ON ERROR? 
;DROP UUT 


SEG 81 


0 
2946 p+ oft ot 


2947 
2948 
2949 
2950 


2951 


104410 
000006 


104432 
000002 


104401 


T2EXT: 


L10016: 


CsetsT 


;LEAVE TST 


SEQ 82 


-_- _—— -— 
— I - - 
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MAROWARE TEST 
TEST 53: INITIALIZA ION TEST 


2954 .SBTTL TEST 3: INITIALXZATION TEST 
S339 
2960 3 § SSSSESSSSSSASSSSSSSSSSAASSSSESSSSASHASSSHSSASAHSSHAESSSSHSESHSSESE 
F3+t) 3 § SPSSSSSESSHESSEASSESESSSSSSSHSASSSHESSASSSHSAASEHHSASESSSHASESSE 
; 
2963 ;TEST 3 - INITIALIZATION TEST 
2964 ; THIS TEST UQ-PORT INITIALIZATION SEQUENCE 
2965 ; H INTERRUPTS DISABLED. IT VERIFIES THAT ALL STEP 
2966 ; TRANST TIONS OCCUR WITHIN THE ALLOTED TIME, AND THAT ALL 
2967 : ST SUPPLIED INFORMATION IS ECHOED BY T 
2968 ; PROGRAM FURTHER VERIFIES THAT NO INTERRUPTS OCCUR AS A 
2969 ; RESULT OF THE STEP TRANSITIONS. 
3 
71 33 SAERESASSSAASSESRSSHSHSSEEASESESSRESSASESSESEAKEESEESEESEEKEESKKESEEES 
s3r¢ $ § RESHESRSAESASSASERSESSSESESASRSSSASSASASEASESSSSSAASEKSSESHSSSAKESES 
2977 034744 BGNTST 
034744 T3:: 
5979 034744 032764 000001 000014 BIT @DRPFLG,LUNFLG(R4) ;IF UUT NOT DROPPED 
2980 034752 001402 BEQ 13 : ; THEN DO VEST 
2981 0347 EXIT TST ; €LSE GET OUT 
0 104432 TRAP CSEXIT 
0 000402 _WORD 1L10017-. 
+44 03476 012737 000001 is: MOV #1, ITRCNT :SET UP —. ONE TEST ITERATION 
983 034766 022737 000001 002312 CMP @1.PASCNT ‘IF FIRST PASS 
+f 0347 001403 BEQ 2$ ; THEN START TEST 
S 034776 012737 000012 0000006 MOV #10. , ITRCNT ; ELSE DO 10 ITERATIONS 
3987 035004 012705 000000 2%: MOV RS ;SET UP RS AS INDEX TO STEP TABLES 
seas 035010 012737 000001 336 MOV #1,INISTP ;STEP 1 FOR ERROR PRINTOUT 
035016 016437 000004 002272 MOV TUVECCR4), STPTBL ‘PUT VECTOR IN STEP 
08 4 237 002272 ASR STPTBL ;DIVIDE BY T 
10 237 002272 ASR STPTBL ;DIVIDE BY FOUR 
F344 rt 013737 o02272 002306 MOV STPTBL. gt tay ;PUT VECTOR IN STEP 3 COMPARE 
9935 0 2 052737 044 002272 B1S 2104400, ST PTBL sREST OF STEP ONE 
5994 035050 012737 005700 002302 MOV #8 .S1!B.Q8!B.01!8.00!6.MP, CMPTBL 
2995 ; STEP i COMPARE V VALUE 
3996 035056 012737 060050 002274 MOV @COMMAR , STPTBL +2 ;STEP 2 - COMM AREA ADDRESS 
70 012737 010211 002 MOV #010211, CMPTBL +2 ;STEP 2 COMPARE 
035072 0127387 000000 002276 MOV .STPTBL +4 ;STEP 3 - HIGH ADDRESS 
O35100 112737 000040 002307 MOVB = «@ 40, TBL +S ;REST OF STEP 3 COMPARE 
000 0385106 012737 000000 002300 MOV . STPTBL +6 ;STEP 4 
3001 035114 012737 040000 002310 MOV #040000, CMPTBL +6 ;STEP 4 COMPARE 
Os 122 004737 031330 JSR PC, STEP1 ;GO DO IT 
0 126 005737 002340 TST STEPST ‘IF STATUS OKAY 
005 035152 001415 BEQ S$ ; THEN CONTINUE TEST 
S007 035134 012737 025632 002330 MOV @LESI.FRUIS sFAILING FRU IN CASE OF ERROR 
3008 035142 ERRDF 9.,EMSG9S,PRIINI ;“SA CONTENTS IN ERROR” 
035142 104455 TRAP C$ERDF 
Os 144 000011 WORD 
035146 024271 "WORD EMSG9 
035150 027002 WORD PRIINI 
3009 035152 CKLOOP ;LO0P ON ERROR? 





Test 3: INITIALIZA 


03 
=9 035242 
035244 
3024 035246 
3025 0 
3026 0 


: 035262 

0 035270 
031 035276 
76 


ae 


6 
3047 08 
0 


ION TEST 
104406 
013700 002352 
104451 
104410 
000174 
005237 002336 
0627 000002 
012737 900100 
016537 002302 
oie 72) 037200 
01 000002 
022705 
= 
033764 002334 
001027 
C23764 002354 
001422 

7 031302 
005737 002350 
001751 
012737 025670 
104455 
000015 
024271 
027002 
104406 
013700 002532 
104451 
Seth 

0 

016574 002272 
022705 
001314 
032764 000001 
00100 
005337 0000006 
00121 
104432 


104401 


Ac A LE A eI 


000012 


002330 


5$: 
6$: 
7$: 


8$: 
9$: 


TSEXT: 


L10017: 
T 
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00, OUTER 
CMPTBLC(RS).SAEXP 


#16000. , INNER 
STUSACRA), » TUSASVCR4 ) 


8$ 
SAEXP , TUSASV(R4 ) 
10% 


9% 
=e 
PC ,PDELAY 

TOUT 

7$ 


#LSCT,FRUIS 
as EnSG9. PRIINI 


EROF 

13 

EMSG9 

PRIINI 

C$CLP1 

LOGUNT 

LOGUNT , RO 

C$DODU 

TST 

CSESCAPE 

L10017-. 

STPTBL(RS), @TUSACR4) 
RS 

@DRPFLG, LUNFLG(R4) 

T3EXT 

ITRCNT 

23 

TST 


CSEXIT 
L10017-. 


CSETST 


:DROP vVUT 


;LEAVE TST 


;ADJUST STEP COUNTER 
AD TABL 


IF NO 
;JUST LOOK FOR STEP 4 BIT 
;IT'S SET SO LET'S GO 
sSTAY IN LOOP OTHERWISE 
;IF SA IS WHAT WE EXPECT 


; THEN MOVE ALONG 
; ELSE GIVE UUT SOME TIME 
;IF NO TIMEOUT YET 

; THEN GO TAKE ANOTHER LOOK 


;FAILING FRU IN CASE OF ERROR 
;"SA CONTENTS IN ERROR” 


;sWRITE NEXT STEP TO UUT 
;IF NOT IN STEP 4 
;GO BACK TO MAIN LOOP 


;HAS UUT gy DROPPED 


; THEN GO 00 IT AGAIN 


SEQ 84 





ae a. aaa ast Ce LL LL LL LLL LLL LL LOO —-— 


MACRO V 


HARDWARE TEST vos.0 
TEST 4: SA REGISTER WRAP iest 





OL 737 


012737 
013737 
004737 


012737 
ye tH 


002332 


000014 


002330 
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.SBTTL TEST 4: SA REGISTER WRAP TEST 


SEG 85 


5 f PSSESSSSSSSESSSSSSSHSKSSHSSSSSSSSSSSSSSSHSSSSASSSHASHSEKSKELHKSSS 
OS << 


;TEST 4 - SA REGISTER WRAP 
THIS TEST WILt INIT 
IP REGISTER. 
ef MODE. 


IT WILL FORCE THE UUT INTO D 

WRITE FIRST A FLOATING O DATA PATTERN, 
OLLOWED BY A FLOATING 1 DATA PATTERN TO THE SA REG. 

EACH st dhe WILL BE FOLLOWED BY A READ AND COMPARE 


TEST 
IALIZE THE UUT BY WRITING TO ITS 


IAGNOSTIC 


§ f FHOSSSESSSESSESESSASSESAESARTASERHSAEASAAKATAKKSSSHSSASASHHERSAES 
ff PEOSSSSEAESEESASSEESESASERESESASASESAESERSAAASASSSKSRAASLESHSSS 


BGNTST 
T4:: 
JSR PC, CHKCAC 
BIT DRPFLG, LUNFLG(R4) 
BEQ 1$ 
EXIT TST 
TRAP § CSEXIT 
.WORD 110020-. 
1s: MOV #1, INISTP 
MOV #1, ITRCNT 
CMP @1.PASCNT 
BEQ 23 
MOV $2, ITRCNT 
2%: MOV #B81T15!B8.WR, SAEXP 
MOV SAEXP , STPTBL 
JSR PC, STEP1 
TST STEPST 
BEQ Be 
MOV @CTRL ,FRUIS 
ERRDF 9.,EMSG9,PRIINI 
TRAP CSERDF 
.WORD 9 
"WORD EMSG9 
“WORD PRIINI 
CKLOOP 
TRAP C8CLP1 
DODU §LOGUNT 
MOV LOGUNT . RO 
TRAP  CsDODU 
ESCAPE TST 
TRAP  CSESCAPE 
.WORD i10020-. 
S$ MOV #100, OUTER 
é$ MOV 


R 
MOV @TUSACR4 ), TUSASV(R4) 
CMP SAEXP , TUSASV(R4) 
BEQ 10$ 


;IF UUT NOT DROPPED 
; THEN DO TEST 
; ELSE GET OUT 


;STEP i FOR ERROR PRINTOUT 
;SET FOR ONE TEST ITERATION 
VIF FIRST PASS 


; THEN START TEST 
; ELSE DO 2 ITERATIONS 


;SET UP STEP 1 FOR DIAG. WRAP MODE 
Uy STEP 1 OF TABLE 


‘ Ri 


;IF STATUS OKAY 
; THEN CONTINUE TEST 


sFAILING FRU FOR PRINTOUT 
;"SA CONTENTS IN ERROR" 


;LOOP ON ERROR? 
;DROP UUT 


;LEAVE TST 


set UP FOR wand ROUTINE 


:GET SA CONTENTS 
;IF SA IS ~ lh ae EXPECT 
; THEN MOVE AL 





ee — — 


Le 


3101 035546 
3102 035552 
3103 035556 


3106 


De ee ee ie et fea peat peat ine beet a ee 
pat eet tee et Ee eg 
wMrFOOasAUVa oOo 


oo ocoocoecoeooocoeceo cocoocc]e|cne coooo coooeooc]eEec““e]a 


a chen eo 
bet tg 
ett 
t23 
- 


w 
<< 
° 
a 
~ 
~ 
~~ 


76 


eo wwe 
= —- 
%~ 4 ft 
0 ND 
MS NAAN AAAS ASSIS 
ee en ee 
GLawo 


ss 
& 3 


Lt (oh 8 eb tt Ot at 





TEST 4: SA A Recrst 


004737 
005737 
001761 


012787 
01877 

013737 
012737 


i 


012737 
gene 


1 
024316 
027002 


104406 


013700 
104451 


104410 
000170 


006137 
103730 


o18r74 


012737 
012737 
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031302 
002350 


025647 


002332 


177776 
002342 

342 
000100 


coseee 
oo2ss4 
031302 
002350 


025647 


002332 


002330 


10%: 
11$: 


002330 


15%: 


TST 


PC .PDELAY 
TOUT 

6$ 

16 ENSGS PRIINI 
cs SeRDF 

EHSG9 

PRIINI 

C$CLP1 

LOGUNT 

LOGUNT , RO 
C$D0DU 

TST 

CSESCAPE 

L 10020 = > 

#177776, WRDATA 
WRDATA, @TUSACR4 ) 
WRDATA. SAEXP 

#100, OUTER 
#6000, INNER 
ATUSACR4 ), TUSASV(R4) 
SAEXP , TUSASV(R4 ) 
20% 

PC, PDELAY 

TOUT 

15$ 

@CTRL.FRUIS 

11. .E€MSG10,PRIINI 
CSEROF 

il 

EMSG10 

PRIINT 

C$CLP1 

LOGUNT 

LOGUNT ,RO 
C#DODU 


TST 
CSESCAPE 
L10020-. 


WRDATA 
11$ 


#1,WROAT 
WRDATA, BTUSACRA) 
WRDAT&, SAEXP 
#100, OUTER 


#6000, INNER 


— 


ELSE GIVE UUT SOME TIME 


vIF NO TIMEOUT 


veT 
; THEN GO TAKE ANOTHER LOOK 


;FAILING FRU FOR PRINTOUT 
: "SA CONTENTS IN ERROR” 


;SET CARRY BIT 

;SET UP FLOATING “0” PATTERN 
;SEND DATA TO UUT 

;SAVE A COPY FOR COMPARE 
;SET UP FOR DELAY ROUTINE 


; INNER TOO 


;READ SA 

;IF DATA MATCHES 

; THEN CHANGE DATA 

; ELSE GIVE UUT SOME TIME 
;IF NO TIMEOUT YET 

; THEN GO TAKE ANOTHER LOOK 


;FAILING FRU FOR PRINTOUT 
;"SA WRONG IN DATA WRAP” 


;GET OUT IF NOT LOOPING 


sSHIFT TEST PATTERN 
;WE‘RE NOT DONE YET 


:SET UP 4, a FLOATING 1 PATTERN 
; SEND DATA TO UUT 

i A copy FOR COMPARE 

;SET UP FOR DELAY ROUTINE 


;DELAY ROUTINE TOO 


SEQ 86 





a on 


a 


= — 





— eee en ——_ a - 


HARDWARE TEST VOS.03 Wednesday 09-Oct-85 10:06 Page 65-2 SEQ 87 
FR UARE Oe SIGISTER UR _ 


AP TEST 


3140 036000 017464 900002 900012 MOV @TUSACR4S ), TUSASVC(R4 ) sREAD THE SA 
3141 036006 0237 002334 00012 CMP SAEXP , TUSASV(R4 ) :;IF IT MATCHES 
3142 036014 001422 BEQ 30% THEN SEE IF WE'RE 
3143 036016 004737 0313502 JSR PC .PDELAY ; ELSE GIVE UUT SOME MORE TIME 
3144 036022 005737 002550 TST TOUT :;IF NO TIME YET 
a148 0356026 001761 BEQ 25% ; THEN T ANOTHER LOOK 
3147 036030 012737 025647 0023350 MOV @CTRL .FRUIS :FAILING FRU FOR PRINTOUT 
3146 036036 ERRDF i2., 10, PRIINI ; "SA WRONG IN DATA WRAP” 
036036 104455 TRAP CSEROF 
036040 000014 -WORD i2 
0356042 024316 -WORD EMSGi10 
036044 027002 -WORD  PRIINI 
3149 036046 CKLOOP 
036046 104406 TRAP CS$CLPi 
3150 yt reed DODU LOGUNT 
] 013700 002332 MOV LOGUNT ,RO 
0 104451 TRAP C$s000U 
3151 0 ESCAPE TST ;LEAVE TEST IF NOT LOOPING 
0 104410 TRAP CSESCAPE 
3 036060 000042 WORD 110020-. 
31 ; e) 2 006137 002542 ROL WRDATA ;SHIFT DATA PATTERN 
3154 © 103330 Bcc 243 ‘RE NOT DONE YET 
i153 2 0 005337 000000G DEC ITRCNT ;IF ITERATIONS = 
156 056074 00140 BEQ T4EXT ; THEN LEAVE TEST 
H 036076 000137 035434 JMP 2$ ; ELSE DO ANOTHER ONE 
3159 036102 005737 0000006 TST CPFLG ;CHECK IF CACHE WAS DISABLED 
3160 0 tts 001405 BEQ EXT ;NO, NCH 
3161 036110 042737 000014 177746 BIC @DISCAC,CCR ;RE-ENABLE CACHE 
3162 056116 EXIT TST ;GET OUTTA HERE 
036116 1044352 TRAP CsExIT 
036120 -WORD 110020-. 
3165 
3164 . : : ENDTST 
036122 104401 TRAP CSETST 


UII Wiue 
he ee 


SSH = RUSS 


VU 
eer 


sees 
se 


OO 

Lent De pet fet pak Pe peat tee 

OVO~aAYV2UNreo 
oo 


3218 0363524 
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37 
012737 
012737 


000012 


000014 


.SBTTL TEST 5: 


. SBTTL 


owe me me — <. 


SEQ 88 


SUBTEST 1: VECTOR AND INTERRUPT TEST 


fF SSSSESASSSAESESEAESSSESSESSEAESESSSASESSESESSSAESESESSHSESSESHAEEESEESE 
Le 


TEST 5 
;SUBTEST 1 - 
VECT 


; 
; 
3 
; 
$ 
T5.1: 


i$: 


2s: 


OR AND INTERRUPT 
TEST 3 IS REPEA 
THE PROGR 


THE END OF STEPS 1 - 3 


MPTTTTTT TTT TTT TT TTT TTT TTT TTT TT TTT Tt tT ttt titi rr 
ff PHESSSSESSESSASSSESSEEASSKESESESSRASEESRALESSESSESESEEEAAESESEESES 


BGNTST 
BGNSUB 
TRAP 
BIT 


Cs6SUB 
+ am atatera ce 


0021- 
OBRFLAG. LUNFLG(R4) 
RL, FRUIS 


2s 

#10. , ITRCNT 

PC, VECTOR 

#1,IN 

TOVECCRS). » STPTBL 


STPTBL : 
STPTBL, a 
#104600.S 


TEST 
TED, BUT WITH INTERRUPTS ENABLED. 
AM VERIFIES THAT AN INTERRUPT OCCURS AT 


;IF UUT NOT DROPPED 
; THEN DO TEST 
; ELSE GET OUT 


;00 TEST WITH PRIORITY SET TO 0 
oa” FRU IN CASE OF ERROR 
;SET UP FOR GNE TEST ITERATION 
VIF FIRST PASS 

; THEN START TEST 

; ELSE DO 10 ITERATIONS 


veer UP VECTOR WITH INTERRUPT HANDLE 
;SET UP RS AS INDEX TO STEP TABLES 
;STEP 1 FOR ERROR PRINTOUT 

;PUT ho gg STEP 1 


; DIVIDE 

sDIVIDE BY FOUR 

;PUT VECTOR IN STEP 3 COMPARE 
;REST OF STEP ONE 


PTBL 
06 .S1!6. QB 18. 01:8 .00!8.MP,CMPTBL 


@COMMAR , STPTBL +2 
#010211, CMPTBL+2 
60. STPTBL +4 

08 IE, CMPTBL +4 
040, CMPTBL «5 

#0, STPTBL +6 
#040000 . CMPTBL +6 


PC,STEP1 
STEPST 


14. ,EMSG9,PRIINI 


; STEP 1 COMPARE VALUE 

;STEP 2 - COMM AREA ADDRESS 
;STEP 2 COMPARE 

;STEP 3 - HIGH ADDRESS 

;SET THE INTERRUPT ENABLE BIT 
;REST OF STEP 3 COMPARE 

:STEP 4 

;STEP 4 COMPARE 


:GO DO IT 

VIF STATUS OKAY 

; THEN CONTINUE TEST 
;"SA CONTENTS IN ERROR” 


mt 


HARDWARE TEST MACRO V 
SUBTEST 1: VECTOR AND INT 


ERRUPT TEST 


036344 
346 


nD 

& 
oo 
RAS 
ads 
& 


as 
Es FH 


ROOD 
SGRASaNH 


: 


2 


ocooocse oo 
°o 


fee 


104455 
CO0C 16 
024271 
027602 
104406 


013700 
104451 


104410 
000666 


012737 


012737 
104455 
000017 
024344 
027222 
104406 
013700 
104451 


104410 
000570 


104455 
000020 


002332 


000100 
002302 
037200 
000002 
031302 
002350 


025632 


002332 


002330 


000014 


002334 
000012 


000012 


000012 


002330 


108: 


15%: 


16%: 


TRAP 
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CsEROF 
14 


EMSG9 
PRIINI 


CsCLPi 

LOGUNT 

LOGUNT , RO 

CsD00uU 

TST 

CSESCAPE 
L10021-. 

#100, OUTER 
CMPTBL(RS ). SAEXP 
#16000. , R 
@INTFLG LUNFLGC R4) 
PC ,PDELAY 

TOUT 

78 


@LESI.FRUIS 
15. ,EMSG11,PRIERR 
sEROF 


@INTFLG,LUNFLGCR4 ) 
INISTP 





TBLCRS). SAEXP 


15$ 
SAEXP , TUSASV(R4) 
208 


16% 
SAEXP , TUSASV(R4 D 
20% 


@LESI.FRUIS 
16. ,EMSG9, PRIINI 
CsEROF 

16 

EMSG9 

PRIINI 


CMP : 
STUSACR4 ), TUSASV(R4) 
26 ,RS 


EE 


SEQ 89 


;LO0P ON ERROR? 
;DROP VUUT 


;LEAVE TST 


;SET UP FOR DELAY ROUTINE 
COMPARE 


T NNE 
;IF INTERRUPT OCCURRED 
; THEN SEE IF SA IS CORRECT 
; ELSE GIVE UUT SOME TIME 
;IF NO TIMEOUT YET 
; THEN GO TAKE ANOTHER LOOK 


sFAILING FRU 
; "EXPECTED INTERRUPT DID NOT OCCUR” 


;CLEAR THE INTERRUPT FLAG 
;ADJUST THE STEP COUNTER 
sADJUST TABLE INDEX 


ARE IN 
;BRANCH IF NO 

;JUST LOOK FOR STEP 4 BIT 
:IT’'S SET SO LET’S GO 


ERR 
VIF SA IS WHAT WE EXPECT 
; THEN MOVE ALONG 


;FAILING FRU 
;"5A CONTENTS IN ERROR” 





ee oe ome 


SUBTEST is° TESEcTOR AND INT INT 


sao SG 


3261 


036574 
ie 


036600 


104406 


013700 
104451 


proed rf 


002332 


036202 
031162 


TSEXT: 


L10022: 


me EEE 


@ 
be 
~ 


gihe SER 
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éRRuPT TEST ™ 


STPTBLCRS). @TUSACRS ) 
@6,R5 


S$ 
@ORPFLG,LUNFLG(R4 ) 


PC .RSTVEC 
TST 


s 
CsEXIT 
L10021-. 


CsESUB 


SEQ 90 


;WRITE NEXT STEP TO UUT 
;IF NOT IN STEP 4 
;G0 BACK TO MAIN LOOP 





sHAS UUT BEEN DROPPED 
LEAVE NOW IF SO 

F _NO 5 ITERATIONS LEFT 
ELSE DO IT AGAIN 


;CATCH ILLEGAL INTERRUPTS 


errr nner name a 


~~ ee 


HARDWARE TE 
| SUBTEST 2: 


3276 





ee 
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T 
LEVEL TEST 


-SBTTL SUBTEST 2: BR LEVEL TEST 


§ f SSSSSSSESSSESSSESSSSESSSSSSSHSSSSSSSSSSSSSSSSSSSSSSHHSSHSSHHSSSDS 
§ { SSSSSSSSESSSSESSSSSSSSSESSSSSSSSSHSSSSSSSSSHSSHSSHHHKSSSSSHSSSHSE 





SINCE THE 
INTERRUPT ACKNOWLEDGE . 


£ § SHSSSSSSESHESSSESSSSSSEASSSEHASSSHSSSSSSVSSSHASSSHHSHSSSSSHSSSVOSS 
ff SCSOSSSSSSSSSSSSSSSSSSSSSSSSSHSSHSSSSSSSSHSSHHSSSSSSSHHSSSHRHSSSONSS 


TS.2: 


@ 
4 


I 





Hiei ggg] fs Hann] BE e 





Cs6SUB 


gaa LUNFLG(R4) 


t8t 
CsExIT 
L10021-. 


@BRFLAG,LUNFLGCR4 ) 









TRL .FRUTS 


ryeetae) 
(R4), STPTBL 


STP 
#104600, S TPTBL 
CCR4), CMPTBL 


PC, STEP1 
STePst 


;IF UUT NOT DROPPED 
; THEN DO TEST 
; ELSE GET OUT 


:00 TEST WITH HIGH PRIORITY 
sFAILING FRU_IN CASE OF ERROR 


ST PAS 
3; THEN START TEST 
; ELSE 00 10 ITERATIONS 


;CPU ae ay 
UP VE TOR. urtH INTERRUPT 
iP oe AS 








:G0 00 IT 

SIF STATUS OKA 

: THEN CONTINUE TEST 
;"SA CONTENTS IN ERROR” 


:LOOP ON ERROR? 
sDROP WUT 


SEQ 91 


HANOLER 
x TO STEP TABLES 
a 


ee —— 
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SUBTEST 2: BR LEVEL TEST 


3330 037036 ESCAPE TST ;LEAVE TST 
037036 104410 TRAP CSESCAPE 
333; 037040 000214 .WORD 110021-. 
3332 037042 012737 000100 002346 5%: MOV #100, OUTE ;SET UP FOR DELAY ROUTINE 
3333 037950 016537 902302 0023554 MOV CHP TAL CRS). SAEXP ;SET UP FOR COMPARE 
33534 037056 012737 937200 002344 7%: MOV #16000. , INNER ;SET UP INNER 
3335 037064 004737 031302 9$: JSR PC, PDELAY ; ELSE CIVE UUT SOME TIME 
3336 037070 005737 002350 TST TOUT ;IF NO TIMEOUT YET 
tH 037074 001770 BEQ 7$ ; THEN GO TAKE ANOTHER LOOK 
3339 037076 017464 000012 MOV ATUSACR4 ), TUSASV(R4 ) ;GET SA Sob 
3340 037104 023764 002534 000012 CMP SAEXP , TUSASV(R4 ) vIF CONTENTS OKAY 
seas 037112 001412 BEQ 10% THEN CHECK FOR INTERRUPT 
3343 037114 ERROF 17.,EMSG9,PRIINI ;"SA CONTENTS IN ERROR” 
37114 104455 TRAP CSERDF 
037116 000021 -WORD 17 
037120 024271 .WORD EMSG9 
037122 C27002 -WORD PRIINI 
037124 CKLOOP 
037124 104406 TRAP CS$CLPi 
037126 DODU LOGUNT 
037126 013700 002332 MOV LOGUNT ,RO 
037132 104451 TRAP CsD00U 
037154 ESCAPE TST 
037134 104410 TRAP CsESCAPE 
037136 00011 .WOR L10021-. 
037140 032764 000002 BIT @INTFLG,LUNFLGCR4 ) ;IF NO INTERRUPT OCCURRED 
037146 001415 BEQ O$ ;_ THEN CARRY ON WITH TEST 
037150 27 000002 BIC @INTFLG,LUNFLGCR4 ) ;CLEAR FLAG IN CASE WE'RE LOOPING 
37156 ERROF 18.,EMSGi2,PRIINI ;"INTRRPT WITH CPU PRIORITY =7" 
037156 104455 TRAP CSERDF 
7160 2 -WORD 18 
037162 024405 .WORD EMSGi2 
37164 02700 .WORD PRIINI 
037166 CKLOOP 
37166 104406 TRAP CS$CLPi 
037170 3, ERS a es -DODU - LOGUNT 
037170 013700 002352 MOV LOGUNT ,RO 
037174 104451 TRAP Csb00U 
3354 037176 ESCAPE TST 
037176 104410 TRAP CSESCAPE 
3355 037 0000 0021- 
3356 037202 106427 000000 208: MTPS @PRIOO ;CPU PRIORITY = O 
3357 037206 000240 NOP 
3358 037210 000240 ;DELAY FOR PENDING INTERRUPT 
SH O37212 042764 000002 000014 BIC @INTFLG,_LUNFLGCR4 ) ;CLEAR THE FLAG NOW 
3361 037220 032764 000001 000014 BIT @ORPFLG,LUNFLGC(R4 ) ;HAS UUT BEEN DROPPED 
3362 037226 001005 STSEXT ;LEAVE NOW IF 
3363 037230 005337 000000G ITRCNT :;IF NO MORE ITERATIONS LEFT 
3364 037234 00140 BEQ STSEXT ; THEN EXIT 
suez 037236 000 036730 JMP es ; ELSE DO IT AGAIN 


HARDWARE TEST 
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SUBTEST 2: BR LEVEL TEST 


3367 037242 


3369 

3370 037252 
037252 
037252 

3371 

3372 037254 
037254 
037254 


004737 031162 
104432 
000004 


104403 


104401 


STSEXT: 


L10023: 
T 


L10021: 


ee ee ee 


PC .RSTVEC 
TST 


CsExIT 
L10021-. 


CsESuUB 


CSETST 


———— re re ee — 


;CATCH ILLEGAL INTERRUPTS 


eR TTT TF mm 
Pe ee a 
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3375 .SBTTL TEST 6: 
sens .SBTTL SUBTEST 1: PURGE AND POLL TEST 
3381 | PSOE SSAESESSSESESESESESEEESESESSEESESESSESSESHESHHSEESHESEEESOS 
rt ee 
ses ; SUBTEST PURGE AND POLL TEST 
3365 F THIS TEST WILL AGAIN RUN THROUGH THE INIT SEQUENCE, THIS 
3366 $ TIME SETTING “PURGE IN STEP 3. THIS 
3387 s AUSE THE PORT TO OMA VARIOUS DATA PATTERNS TO 
3366 $ F T AREA FINALLY LEA IT 
3389 $ CLEARED BEFORE TRANSIT Ss an WILL 
3390 rt HAVE FILLED THIS AREA WITH ACK PATTERN Y 
3391 3 1‘S DATA PRIOR TO STARTING THE INIT. WHNE STEP 4 IS 
339 3 REACHE HE PROGRAM WILL VERTFY THAT THE COMM AREA IS 
339 3 ALL o's. AND THAT THE 20 WORDS PRECEDING AND SUCCEEDING 
i +4 : THE COMM AREA ARE UNTOUCHE 
F 
396 | POSSE EESESSEESEAERESSASEOSASSEESEEESSESESESSSESEESEESESEREESES 
3397 ff PRORESSEASESSESEEHESAEEESSESSESEESESESESESEESSESEEESEESEESEESEESS 
1 
3402 037256 BGNTST 
037 T6:: 
3403 037 BGNSUB 
037 T6.1: 
037 104402 TRAF Cc s$BSuUB 
3405 gare 032764 9000001 000014 BIT @DRPFLG.LUNFLGCR4 > ;IF UUT NOT DROPPED 
3406 037 001402 BEG i$ ; THEN DO TEST 
3407 937270 EXIT TST _; ELSE GET OUT 
037270 104432 TRAP CSEXIT 
037272 001406 ‘ L10024-. 
3408 037274 012737 025647 002350 i$: MOV @CTAL ,FRUIS one ae ge FRU IN CASE OF ERROR 
3409 ot 012737 000001 900000G MOV #1, ITRCNT ;SET UP FOR ONE TEST ITERATION 
3410 037310 022737 000001 002312 CMP #1,.PASCNT ‘IF FIRST oo 
sat 0 7326 oonss5 BEQ 2$ ; THEN START TEST 
sai 037 012737 000012 000000G MOV #10. ,ITRCNT ; ELSE DO 10 ITERATIONS 
3414 037 0127 000000 2s: MOV @0,R5 ;SET UP RS AS INDEX TO STEP TABLES 
3415 037 012737 000001 0023356 MOV el, INISTP ;STEP 1 FOR ERROR PRINTOUT 
3416 037 016437 000004 002272 MOV TUVEC(R4), STPTBL ;sPUT VECTOR IN STEP 1 
17 037 37 002272 ASR STPTBL :DIVIDE BY pan 
18 037 pg 002272 STPT ;DIVIDE BY 
35 037 0 37 O02272 002306 MOV ore vou. 0re ce 38 ;PUT VECTOR IN STEP 3 COMPARE 
4a 037 737 111000 002272 BIS rs ab ye ip PTBL ;REST OF STEP 
3421 037372 012737 700 002302 MOV $1'8.08!8.01!8.00!8.mP,CMPTBL 
342 ;STEP 1 COMPARE VALUE 
037400 012737 060050 002274 MOV SCOMMAR .STPTBL +2 ;STEP 2 - COMM AREA ADDRESS 
037 pt He 010222 002304 MOV #010222 hey ta :;STEP 2 COMPARE 
34 037414 012737 1 002276 MOV 08 .PP, STPTBL +4 ;STEP 3 - HIGH ADDRESS AND PRGE/POLL 
037 112737 000040 002307 MOVB 240 5 ;REST OF STEP 3 COMPARE 
3427 9574 012737 000000 002300 MOV 20, STPTBL «6 :STEP 4 
3428 037436 012737 040000 0023510 MOV #040000 . CMPTBL +6 :STEP 4 COMPARE 
34 037444 012737 000022 002326 MOV #18. ,CMARLG sLENGTH OF COMM AREA FOR THIS rer" 
et tt 037452 004737 031426 JSR PC .BAKPAT ;FILL COMM AREA WITH ALL 1'S DATA 





te eee 


AC OL LL GCL GE OE 


TT 


Em 
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SUBTEST 7 lace AND POLL 02 -9Es1 — 
3433 037456 004737 031330 JSR PC.STEP1 ;G0 DO IT 
3434 037462 005737 002340 TST STEPST ‘IF STATUS OKAY 
3435 037466 001412 BEQ 3 ; THEN CONTINUE TEST 
3437 037470 ERRDF 19..€MSG9.PRIINI :"SA CONTENTS IN ERROR’ 
037470 104455 TRAP Cs€ROF 
00002 WORD 19 
024271 "WORD EMSG9 
“WORD PRIINI 
3436 0 CKLOOP ;LOOP ON ERROR? 
0 TRAP CsCLPi 
5439 03 DODU OGUNT ;DROP UUT 
0 002332 MOV LOGUNT , RO 
08 TRAP § CsDODU 
3440 0 ESCAPE TST ;LEAVE TST 
TRAP  CSESCAPE 
WORD 110024- 
3442 002336 S$: INC INISTP ;ADJUST STEP COUNTER 
3445 03 ADD @2,R5 :ADJUST TABLE I 
34a 0 900100 002 6$: MOV #100, OUTER ;SET UP FOR DELAY ROUTINE 
50 002 002334 MOV CMPTBL(RS).SAEXP ;SET UP FOR C 
3446 0 037200 002 7%: MOV #16000. ,I ;SET I 
344 08 000002 000012 MOV @TUSACR4 ), TUSASV(R4) ;GET SA CONTENTS 
3448 0 000006 CMP RS ;ARE WE IN STEP 4? 
0 BNE as ;BR IF 
0 002334 000012 BIT SAEXP , TUSASV(R4) ; JUST LOOK FOR STEP 4 BIT 
0 BNE 10% :IT'S SET $O LET'S 
3452 0 BR 93 sSTAY IN LaoP” OTHE 
34 0 002334 000012 8%: CMP SAEXP, TUSASV(R4 ) ;IF SA IS WHAT WE EXPECT 
0 BEQ 0$ ; THEN MOVE ALONG 
50 031302 9%: JSR PC ,PDELAY ; €LSE GIVE UUT SOME TIME 
0 2350 TST TOUT ;IF NO TIMEOUT YET 
34 0 BEQ 7$ ; THEN GO TAKE ANOTHER LOOK 
3459 037616 012737 025632 002330 MOV @LESI,.FRUIS ;FAILING FRU 
3460 037 ERRDF 20.,€MSG9,PRIINI ;"SA CONTENTS IN ERROR” 
037 104455 TRAP CSERDF 
037 900024 WORD 20 
0876 024271 WORD  €EMSG9 
037632 027002 WORD PRIINI 
3461 0376 CKLOOP 
037 104406 TRAP CS$CLP1 
3462 037 LOGUNT 
037636 013700 002332 MOV LOGUNT . RO 
037642 Si TRAP  CésDODU 
3463 037644 ESCAPE TST 
037644 04410 TRAP CSESCAPE 
037646 b010 WORD 110024-. 
3465 037650 016574 002272 000002 10%: MOV STPTBL(RS), @TUSACR4 > s WRITE NEXT STEP TO UUT 
3466 037656 022705 CMP 84,R5 :IF STEP 3 
3467 037662 14 BEQ 15$ THEN DO PURGE/POLL STUFF 
3468 037664 022705 000006 CMP 06, ‘IF NOT IN STEP 4 
$469 037670 001311 BNE S$ ; THEN GO BACK TO MAIN LOOP 
3470 037672 40 BR 20% ; ELSE GO CHECK RESULTS 


EE —~——— — — ee - 


HAR 
SUBTEST 1: 
3472 037674 


7766 

att 037772 
3465 037774 
86 040000 
040006 

68 040010 
040014 
ats 040016 
3492 040022 
040022 
040024 

3493 040026 
040026 
040026 


012727 
000000 
013727 


104410 
000722 


012774 
005774 
000650 


000001 
002116 
177772 
177756 
000002 


002332 


037326 


000012 


15$: 


DELAY 
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EST RCE AND POLL TEST ” = ee Mae Ss 


#1..PC)- 
LSDLY.(PC)+ 
~6(PC) 
-22¢PC) 


.-20 
gad rates caida 


21. ,EMSGi13,PRIINI 
CSEROF 

21 

EMSG13 
PRIINI 
CSCLP1 
LOGUNT 
LOGUNT ,RO 
C$000U 

TST 

CSESCAPE 
L10024-. 

#0, ATUSACR4 ) 
QTUIPCR4 ) 

5$ 

PC ,CHKCOM 
@ORPFLG,LUNFLGC(R4 ) 
T6EXT 

ITRCNT 

T6EXT 

2s 


TST 
CSEXIT 
L10024-. 


CsESUB 


;GIVE PORT SOME TIME 


;GET SA CONTENTS 
;BRANCH IF OKAY 


;SA NOT O IN PURGE/POLL 


aoe Ye 0’S TO SA 
; 
;GO WAIT FOR NEXT TRANSITION 


;GO CHECK COMM AREA 

:HAS UUT BEEN DROPPED 
;LEAVE NOW IF SO 

;IF NO MORE ITERATIONS LEFT 
; THEN LEAVE TEST 

; ELSE DO IT AGAIN 


SEQ 96 


a vest. 
SUBTEST 2: 


-— we oe + 
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0527357 
012737 
012737 
042737 


012737 


012737 
012737 
004737 


TENDED ADDRESS TEST 


002314 


000012 


000022 
031426 


031330 
002340 


000014 


.SBTTL SUBTEST 2: EXTENDED ADDRESS TEST 


T6.2: 


BGNSUB 


CsBSUB 
‘ima alate 


L10024-. 
@CTRL,FRUIS 

#1, ITRCNT 
eee 

#10. ,ITRCNT 

PC, INTMMU 

te ears 

TUVECCRAD, STPTBL 
STPTBL 


STPTBL 
STPTBL ,CMPTBL +4 
#111000, STPT 


;IF UUT NOT DROPPED 
; THEN CO TEST 
; ELSE GET OUT 


;IF MEMORY MANAGEMENT AVAILABLE 
; THEN DO TEST 
; ELSE GET OUT 


oe tes FRU IN CASE OF ERROR 
;SET UP FOR ys TEST ITERATION 


TES 
; ELSE DO 10 ITERATIONS 


Fe ge MMU REGISTERS 

;SET UP RS AS ee TO STEP TABLES 
;STEP 1 FOR ERROR PRINTOUT 

;PUT VECTOR IN STEP 1 

;DIVIDE BY TWO 

;DIVIDE BY FOUR 

;PUT VECTOR IN STEP 3 COMPARE 
;REST OF STEP ONE 


BL 
#6 .S1!8.QB!8.01!68.00!6. MP, CMPTBL 


@COMMAR , STPTBL 


+2 
#81T15!61T14!61T13, STPTBL +2 


#010222 ,CMPTBL+2 
KPAR3, TEMP 
TEMP +1. »STPTBL +4 


0, 
20, STPTBL +6 
#040000 , CMPTBL +6 


#18. ,CMARLG 
PC .BAKPAT 


PC.STEP1 

STEPST 

5$ 

25. ,EMSG9,PRIINI 
CSEROF 


25 
EMSG9 
PRIINI 


:STEP 1 COMPARE VALUE 
;STEP 2 - COMM AREA ADDRESS 


;CLEAR THE ACTIVE PAGE FIELD 
;STEP 2 COMPARE 
:GET RELOCATION VALUE 
JUST THE HGH BYTE 
;MAKE IT THE EXTENDED 
ADDRESS OF THE COMM AREA 
;NOW SET PURGE/POLL BIT 
ree a OF STEP 3 COMPARE 
: 
; STEP a COMPARE 


;sLENGTH OF COMM AREA FOR THIS TEST 
;F ILL COMM AREA WITH ALL 1'S DATA 
;GO0 DO IT 

:IF STATUS OKAY 

; THEN CONTINUE TEST 

;"SA CONTENTS IN ERROR” 


SEQ 97 


. eee eer ee 


— 


—— 


HARDWARE 
SUBTEST 2: EXTENDED ADDRESS TEST 


3543 
3544 


3545 


3576 


3577 


TEST 


040322 


MACRO VOS.05 


104406 


013700 
104451 


104410 
344 


016574 
022705 


001404 
022705 
001314 


012727 
013727 
000000 


017464 


002332 


002332 


0v0001 
002116 
177772 
177756 
000002 
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S$: 
002346 6%: 
002344 7%: 


000012 8: 
9$: 


000002 10%: 


i5$: 


000012 


C$CLPi 
LOGUNT 
LOGUNT ,RO 
$D00U 


00,OUTE 
CHPTBL CRS). SAEXP 
#16000. , INNE 
@TUSACR4 ), TUSASV(R4) 
#6 ,R5 


8$ 
SAEXP , TUSASVC(R4 ) 
10$ 


9% 
SAEXP , TUSASVC(R4 ) 
10$ 

PC ,PDELAY 

TOUT 

7$ 

26. ,EMSG9, PRIINI 
CSEROF 


EMSG9 
PRIINI 
CS$CLPi 
LOGUNT 
LOGUNT ,RO 
C#D00U 
TST 
CSESCAPE 
L10024 ~ és 
STPTBLCRS), ATUSACR4 D 
#4,R5 


15$ 
86 RS 
S$ 


20$ 


1 

#1,(PC)-¢ 

"auch baal 

-6(PC) 

pee 

~22(PC) 
@TUSACR4 ), TUSASV(R4) 


a ee _——— ee - 


;LO0P ON ERROR? 
;DROP VUT 


;LEAVE TST 


;ADJUST STEP COUNTER 
ADJUST T 


; THEN MOVE ALONG 

; ELSE GIVE UUT SOME TIME 
;IF NO TIMEOU T 

; THEN GO TAKE ANOTHER LOOK 
;"SA CONTENTS IN ERROR” 


i esee a STEP TO UUT 
; 
THEN DO PURGE/POLL STUFF 
:IF NOT IN STEP 
THEN GO BACK TO MAIN LOOP 
: ELSE GO CHECK RESULTS 


;GIVE PORT SOME TIME 


;GET SA CONTENTS 


SEQ 98 





LL LL LOLA 


DWARE TEST 


3608 

3609 040700 
040700 
040700 


o_—- - 
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001412 


012774 
005774 
000653 
004737 
032764 
001021 


062737 
3406 


SUBTEST 2: EXTENDED ADDRESS TEST 


002332 


002000 
002120 
040116 


177572 
000000G 


040112 
177572 


16$: 


25%: 


ST6EXT: 


L10026: 


L10024: 


16% 
27. ,ENSG13,PRIINI 
CSERDF 


#0 , BTUSACR4 ) 
_ 


PC ,CHKCOM 
#DRPFLG,LUNFLGC(R4 ) 
ST6EXT 
eo 
LS$HIME , KPARS 
25$ 
3$ 
MMUSRO 
ITRCNT 
ST6EXT 
23 

9) 


TST 
CSEXIT 
L10024-. 


CsESUB 


CSETST 


a ee - 


SEQ 99 


;BRANCH IF OKAY 
3SA NOT O IN PURGE/POLL 


;sWRITE O'S TO SA 
;AND READ IP 
;GO WAIT FOR NEXT TRANSITION 


;GO CHECK COMM AREA 
;HAS UUT BEEN DROPPED 
;LEAVE NOW TF SO 


;POINT TO NEXT 32KWORDS 

;DON'T ALLOW OVERFLOW IF 4 MBYTES 
;IF THERE'S NO MORE MEMORY AVAILABLE 
; THEN CHECK FOR _ ITERATICNS 

; ELSE DO IT AGAIN 


;SHUT DOWN MEMORY MANAGEMENT 
;IF NO MORE ITERATIONS LEFT 
; THEN LEAVE TEST 

; ELSE DO IT AGAIN 


;MAKE SURE IT'S OFF 


een oo 


progeessessseeescecss 


eeseeees eee ee seeeee fees 


3333 


e & 


HARDWARE TEST 
TEST 7: SMALL RI 


a3 


=o o 
on 


~~ 


ass Sbbeeaacee 
BONES VONSOD 


333 
ann 


prot ed et 
33 
~— 
> 


$558 


oS 
$3 


83 fee et pt bet 


~ 
ae 


popeeceserecneon ee O 
RNNoonwnw oFe 


012737 
012737 


012737 
012737 
004737 


031330 
002340 


000014 
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NG TEST 


-SBTTL TEST 7: SMALL RING TEST 


— oe ee ee SS eee 


SEQ 100 


5 SSSESESSSEASSESKEEESSS EESEESSSSSSHSSSASSSSSSSSSESSSEHHESEEASHSEES 
ff PRESSES EESESSSEESESESEESESSESSSSSSESSEASESSSSHESSASESSHEEHHSEKSSSE 


;TEST 7 - SMALL RING TEST 
; THIS TEST IS SIMILAR TO TEST 6, HOWEVER, RING DEPTH 
i USED IN THIS TEST IS THE MINIMUM. 


; 
ff SSSSSESSSSEESSSSSSESSSASASSESASASAHEKSSASSAASSSSHAESSHSSSEASEESEE 
ff SSESAASEESSEREESSEESESSEASEESSSSSSSSESSSSSAASSESSSSSEKESASSEEASEESE 


BGNTST 
T7:: 
BIT @DRPFLG,LUNFLGC(R4 > 
BEG i$ 
EXIT T 
TRAP CSEXIT 
.WORD L10027-. 
is: MOV @cTa_,FRUIS 
MOV #1, ITRCNT 
CMP #1,PASCNT 
BEQ 2$ 
MOV #10. , ITRCNT 
2s: MOV #0,R5 
MOV 61. INISTP 
MOV TUVECC(CR4), STPTBL 
ASR STPTBL 
ASR STPTBL 
Vv STPTBL ,CMPTBL +4 


MO 
BIS #104400, STPTB 
MOV 


;IF UUT NOT DROPPE 
; THEN OO TEST 
; ELSE GET OUT 


;FAILING FRU IN CASE OF ERROR 
;SET UP FOR ONE TEST ITERATION 
;IF FIRST PASS 

; THEN START TEST 

; ELSE DO 10 ITERATIONS 


;SET UP RS AS INDEX TO STEP TABLES 
: 1 FOR ERROR PRINTOUT 
;PUT VECTOR IN STEP 1 

BY TWO 


L ; 
#8 .S1!B.Q8!8.01!8.00!8.MP,CMPT 


MOV @COMMAR ,STPTBL+2 


MOV #010211 ,CMPTBL+2 
Vv #8 .PP.STPTBL +4 

MOVB ,CMPTBL «+ 

MOV #0. STPTBL +6 

MOV #040000, CMPTBL +6 

MOV 


#10. ,CMARLG 
JSR PC ,BAKPAT 
JSR PC ,STEP1 

STEPST 


TST 
BEG 
ERRDF 19.,EMSG9,PRIINI 
TRAP CSsERDF 
-WORD 19 
.WORD ENMSG9 
.WORD PRIINI 
CKLOOP 
TRAP CscLPi 
LOGUNT 





BL 
;STEP 1 COMPARE VALUE 
- COMM AREA ADDRESS 


2 
;STEP 2 COMPARE 
;STEP 3 - HIGH ADDRESS AND PRGE/POLL 
COMPARE 


‘rep OF STEP 3 
; 

;STEP 4 COMPARE 
;LENGTH OF COMM AREA FOR THIS TEST 
sFILL COMM AREA WITH ALL 1'S DATA 
;GO0 00 IT 

;IF STATUS OKAY 

; THEN CONTINUE TEST 

;"SA CONTENTS IN ERROR” 


;LOOP ON ERROR? 
;DROP UUT 


ee ——- - -_- 
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Test 7: SHALL RING Ne Test 


041124 0135700 002552 MOV LOGUNT ,RO 
041130 104451 TRAP CsD0DU 
041132 ESCAPE TST ;LEAVE TST 
041132 104410 TRAP CSESCAPE 
041134 000306 - WORD 10027-. 
3669 041136 005237 002556 S$: INC INISTP ;ADJUST STEP COUNTER 
3670 041142 062705 2 ADD . ;ADJUST TABLE INDEX 
3671 041146 012737 000100 002 6%: MOV #100, OUTER ;SET UP FOR DELAY ROUTINE 
3672 041154 016537 002302 002534 MOV CMPTBLCRS).SAEXP ;SET UP FOR COMPARE 
3673 041 45 HH 037200 002 7$: MOV #16000. , INNER ;SET UP INNER 
3674 041170 017464 2 000012 MOV STUSACR4 ), TUSASV(R4 ) ;GET SA CONTENTS 
3675 041176 022705 CMP #6,R5 ;ARE WE IN STEP 4? 
3676 041202 ped ae BNE es ;BRANCH IF NOT 
3677 041204 035764 0023534 000012 BIT SAEXP , TUSASV(R4 ) ;JUST LOOK FOR STEP 4 BIT 
3676 041212 001024 BNE 10% sIT'S SET SO LET'S GO 
3679 041214 BR 9$ sSTAY IN LOOP OTHERWISE 
3680 pot ett 023764 002354 000012 8%: CMP SAEXP , TUSASV(R4 ) ;IF SA IS WHAT WE E 
3661 04 001417 BEQ@ 10$ ; THEN MOVE ALONG 
sone 0412 C04737 031302 9%: JSR PC ,PDELAY ; ELSE GIVE VUT SOME TIME 
36835 0412 005737 2350 TST TOUT ; TIMEOUT YET 
sess 041236 001751 BEG 7$ ; THEN GO TAKE ANOTHER LOOK 
"626 041240 ERRDF 20. ,EMSG9,PRIINI ;"SA CONTENTS IN ERROR" 
041240 104455 TRAP CSEROF 
Oo taes . WORD 
041244 024271 . WORD MSG9 
041246 027002 -WORD  PRIINI 
3667 041 CKLOOP 
041 104406 TRAP CsCLP1 
3686 0412 LOGUNT 
O83 teas 013700 002552 v LOGUNT ,RO 
04 5 TRAP $D0DU 
*66¢9 041 ESCAPE TST 
041 104410 TRAP CSESCAPE 
90 041 000160 WORD 110027- 
3691 041264 016574 002272 000002 10%: MOV STPTBLCRS ), @TUSACR4 ) ;sWRITE NEXT STEP TO UUT 
+84 041272 O22705 900004 CMP @4,R5 ;IF STEP 3 
93 041276 1404 BEQ 15% ;__THEN DO Atanas STUFF 
94 041300 2705 000006 CMP #6.R5 +IF NOT IN STEP 
3695 041504 001314 BNE S$ THEN GO BACK To MAIN LOOP 
see? 041306 BR 20% ELSE GO CHECK RESULTS 
3696 ett ty 15$: DELAY 1 ;GIVE PORT SOME TIME 
041310 012727 900001 MOV @1,(PC)+ 
parte tet 000000 . WORD 
041316 013727 002116 MOV LSOLY,CPC)+ 
041322 000000 . WORD 
pat ts oH 367 177772 DEC ee ‘iad 
0413 001375 BNE 
041332 S367 177756 DEC “22cPc) 
041336 1367 BNE 
28 041340 017464 9000002 000012 MOV |TUSACR4 ), TUSASV(R4 ) ;GET SA CONTENTS 
das, 041346 001412 BEQ 16% ;BRANCH IF OKAY 
3702 041350 ERROF 21.,.EMSG13.PRIINI ;SA NOT O IN PURGE/POLL 


ee 


HARDWARE TEST 
TEST 7: SMALL RI 


1366 

3705 041370 

041370 

041372 
3706 

3707 041374 

402 


104455 
000025 
024454 
027002 
104406 
013700 
104451 


104410 
000050 


104401 
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002332 





000000 000002 16%: MOV #0, BTUSACR4 ) 
000000 TST QTUIPCR4 ) 
BR S$ 
031456 208; JSR PC ,CHKCOM 
000001 000014 BIT ee ene 
000000G DEC ITRCNT 
BEQ T7EXT 
040750 2s 
T7EXT: EXIT ST 
TRAP CsExIT 
.WORD 110027- 
ENDTST 
L10027: 


TRAP CSsETST 


eee —_<~- 


SEQ 102 


;WRITE O'S TO SA 
;AND RE Pp 
;GO WAIT FOR NEXT TRANSITION 


$ Cc AREA 
;HAS UUT BEEN DROPPED 
;LEAVE IF 


; THEN LEAVE TEST 
; ELSE DO IT AGAIN 


—_ 
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TEST 8: MAXIMUM RING BUFFER TEST 
3725 _SBTTL TEST 8: MAXIMUM RING BUFFER TEST 
3735 041444 BGNTST 
5726 041444 T8:: 
$727 041444 032764 000001 000014 BIT @DRPFLG.LUNFLG(R4) ;IF WUT NOT DROPPED 
' «$728 041452 001402 BEQ i$ ; THEN DO TEST 
| =-§729 0614 EXIT ST ; ELSE CET OUT 
041454 104432 TRAP  CSEXIT 
| 0414 _WORD 110030-. 
3730 041460 012737 025647 002330 1%: MOV @CTRL,.FRUIS ;FAILING FRU IN CASE OF ERROR 
731 04 012737 000001 MOV @1, ITRCNT ;SET UP FOR ONE TEST ITERATION 
732 041474 022737 000001 002312 CMP 1. PASCNT ;IF FIRST PASS 
7 941302 001403 BEQ 2% ; THEN START TEST 
134 04 012737 000012 0000006 MOV #10. ,ITRCNT ; ELSE DO 10 ITERATIONS 
736 041512 012705 000000 2%: MOV 20.RS ;SET UP RS AS INDEX TO STEP TABLES | 
7 O41 6 012737 000001 002336 MOV #1. INIST ;STEP 1 FOR | 
738 041524 016437 000004 002272 MOV TOvECERAD. STPTBL ;PUT VECTOR IN STEP 1 
739 041 37 72 ASR STPTBL ;O0IVIDE BY TWO | 
740 04 37 72 ASR ;DIVIDE BY FOUR 
14 013737 002272 002 MOV CHPTBL +4 ;PUT VECTOR IN STEP 3 COMPARE 
742 04 932737 137400 002272 BIS TPTBL wiPESl, OF STEP ONE 
743 041 012737 005700 002302 MOV $1:8. ae 'B. DI!8.00!8.MP,CMPTBL 
744 ; STEP : COMPARE VALUE 
745 04 364 012737 060050 002274 MOV .STPTBL +2 :STEP 2 - COMM AREA ADORESS 
746 04 012737 010277 002 MOV 8010277. CMPTBL +2 ;STEP 2 COMPARE 
74 205 012737 900000 002276 MOV PP, STPTBL + :STEP 3 - HIGH ADDRESS AND PRGE/POLL 
748 112787 000040 002307 MOVB CMPTBL + ;REST OF STEP 3 COMPARE 
14 4 737 000000 002 MOV 00, STPTBL +6 ;STEP 4 
q 041622 012737 040000 002310 MOV 8040000, CMPTBL +6 ;STEP 4 COMPARE 
7 041630 012737 001002 002326 MOV #514. .CMARLG sLENGTH OF COMM AREA FOR THIS TEST 
q 0416 737 031426 JSR PC, BAKPAT ;FILL COMM AREA WITH ALL 1'S DATA 
7 2 737 031330 JSR PC, STEP1 ;GO DO IT 
7 Sat 005737 002340 TST STEPST ‘IF STATUS OKAY 
7 041652 001412 BEQ ; THEN CONTINUE TEST 
O46 ERRDF  22.,€MSG9,PRIINI :"SA CONTENTS IN ERROR” 
04 04455 TRAP CSERDF 
$ WORD 22 . 
037003 WORD PRIINI 
3760 CKLOOP ;LOOP ON ERROR? 
104406 TRAP  C3$CLP1 
3761 DODU -— LOGUNT :DROP UUT 
94 013700 002332 MOV LOGUNT ,RO 
104451 TRAP CsD0DU 
3762 04167 ESCAPE TST ;LEAVE TST 
041674 104410 TRAP CSESCAPE 
mee 041676 so0306 .WORD 110030-. 
941700 905287 002336 S$: INC INISTP ;ADJUST STEP COUNTER 
765 041704 0S 000002 ADD 2, ;ADJUST TABLE INDEX 
766 041710 012737 000100 002346 63 MOV #100, OUTER ;SET UP FOR DELAY ROUTINE 
3767 041716 016537 002 002334 MOV CMP TBL( RS). SAEXP ;SET UP FOR COMPARE 





ee en ee. aed 


3766 0417 
769 
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TEST 8: MAXIMUM RING BUFFER TEST 


012737 
464 


764 


037200 
000002 
000006 
002334 


002334 


002350 


002116 
177772 
177756 
000002 


002344 
G00012 
000012 


000012 


000012 


78: 


108: 


15%: 


i 

#1,(CPC)> 

LODLY,CPC)-« 

“EPC? 

“22cPe) 

BTUSACR4), TUSASVC(R4) 
16% 


, ,EMSG13,PRIINI 
C#ERDF 





hic can ie a2 om er i 


SCAPE TST 





SET UP INNER 
GET SA CONTENTS 
ARE WE 





$ 
: 
z 
: 


sWRITE NEXT STEP TO UUT 
STEP 3 


¥9l 

THEN DO ~My STUFF 
VIF NOT IN STEP 4 
; THEN GO BACK TO MAIN LOOP 
; ELSE GO CHECK RESULTS 


:;GIVE PORT SOME TIME 





;GET SA CONTENTS 
sBRANCH IF OKAY 
:;SA NOT O IN PURGE/POLL 


SE@ 104 





oe es 


H TEST 
fest 8. MAXIMUM 


—— = 


MACRO V 


vo5.0 
RING BUFFER * rest 


104410 
000050 
012774 
005774 
000653 


104401 


TBEXT: 


L10030: 
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CSESCAPE 
L10030-. 


#0, ATUSA(CR4 ) 
— 


PC ,CHKCOM 
@DRPFLG,LUNFLG(R4 ) 


CSETST 


EE me 


SEQ 105 


;WRITE O'S TO SA 
;AND RE I 
;GO WAIT FOR NEXT TRANSITION 


NOW IF 
;IF NO MORE ITERATIONS LEFT 
; THEN LEAVE TE 

; ELSE DO IT AGAIN 


a —_-= 


— a car 


HARDWARE TEST 
TEST 9:GET OUST 
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STATUS 


000014 
002330 


000014 
000014 


-SBTTL TEST 9:GET DUST STATUS 


T9:: 


T9EXT: 


L10031: 


BGNTST 

BIT @ORPFLG,.LUNFLGCR4 ) 
BNE XT 

MOV 


eCTRL .FRUIS 
cLR LUNFL GC R4) 
BIT ODRPFLG, LUNFLG(R4) 
BNE T9EX 
BIS @TEST.9, LUNFLG(R4) 
@GDUST RS 


MOV a 
JSR PC, CLSDRV 
EXIT TST 

TRAP CSEXxIT 

; L10031-. 
ENDTST 

TRA? CSETST 


ee o— - 


=—_——_—_ — 


SEQ 106 


;IS THE DRIVE AVAILABLE 
;GET OUT IF NOT AVAILABLE 
;DEFAULT FRU IS CONTROLLER 
;CLEAR ALL FLAGS 

;GO DO A PORT INITIALIZE 
:IS THE DRIVE AVAILABLE 
;NO, BRANCH TO EXIT 
;SET TEST 9 FLAG 
;SET UP TO DO GET DUST STATUS COMMAND 
:GO ISSUE THE COMMAND 
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vo5.05 coe ere 
TEST 10: FUNCTIONAL FAULT DETECTION TEST (Internal Drive Test 
38635 .SBTTL TEST 10: FUNCTIONAL FAULT DETECTION TEST (Internel Drive Test 1) 


3836 
3837 042270 


BGNTST 


042270 T10:: 

38 70 032764 000001 000014 BIT @ORPFLG, LUNFLG(R4) ‘Is THE DRIVE AVAILABLE 
3839 7% 001062 BNE T1OEXT ANCH TO EXI 
3840 042 MANUAL "MANUAL INTERVENTION ALLOWED ? 

042 104450 TRAP  C$MANI 
3641 BNCOMPLE TE TLOEXT ;NO, BRANCH TO EXIT 
042 103060 C T1OEXT 
3842 042304 is: PRINTF @T10MS1 ;PRINT TEST 10 MESSAGE 
oas 012746 025724 MOV @T10MS1, -(SP) 
042310 012746 1 MOV #1, -(SP) 
oa2 14 01 MOV SP .RO 
16 104417 TRAP CSPNTF 
042320 062706 000004 ADD SP 
3843 042 PRINTF @TiOMS2 ;PRINT TEST 10 MESSAGE 
042 012746 026032 MOV @T1LOMS2, -(SP) 
042 012746 000001 MOV #1, -(SP) 
042354 Ci MOV SP .RO 
104417 TRAP CSPNTF 
062706 000004 ADD SP 
3644 042 PRINTF @TiOMS3 ;PRINT TEST 10 MESSAGE 
042 012746 026057 v @T1OMS3, -(SP) 
042 012746 000001 1,-(SP) 
354 01 V RO 
3 104417 TRAP CSPNTF 
042360 062706 000004 SP 
3845 042 PRINTF i0ms4 :PRINT TEST 10 MESSAGE 
012746 026134 MOV @T10MS4, -(SP) 
042370 012746 MOV #1,-(SP) 
042374 01 MOV SP RO 
042376 104417 TRAP CSPNTF 
062706 000004 ADO sp 
3846 GMANIL QUESTN,.ANSWER,1, YES :GET OPERATOR INPUT 
04 104443 TRAP C$GMAN 
000404 BR 10000$ 
10 002354 .WORD ANSWER 
12 0001 "WORD TSCODE 
042414 026716 "WORD GUESTN 
& i “WORD 
100008: 
? 005737 002354 TST ;DID OPERATOR ANSWER YES ? 
001407 BEQ TLOEXT :NO, BRANCH TO EXIT 
903087 002354 CLR SWER :CLEAR OPERATOR ANSWER 
112787 000061 002424 : 061, TSTNAM ;LOAD DRIVE TEST NAME (ASCII 1) 
38 737 032150 JSR PC .ORVTS :GO RUN THE INTERNAL ORIVE TEST 
38 TLOEXT: EXIT TST 
104432 TRAP CSEXIT 
. WORD L_i0032-. 
3853 04 30 ENDTST 
L10032: 
642450 104401 TRAP CS$ETST 





-— a er 


é 
SSSSSSSSSSSSSSSESSTS 
Tete ei tet te 
¥$ an 


“NN 
MNMCO 
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TEST 11: TENSION FAULT ISOLATION TEST 


000001 000014 


002354 
002354 
000062 
032150 


002424 
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Internal Drive Test 2) 


SEG 108 


.SBTTL TEST 11: TENSION FAULT ISOLATION TEST (Internal Drive Test 2) 


Til:: 


1$: 


100008: 


TLIEXT: 


L10033: 


BGNTST 








@ORPFLG.LUNFLGC(R4 ) 
TLLExXT 


CSMANI 
OMPLETE TLLIEXT 
LIEXT 


@T1iMS1 
@T11MS1, -(SP) 
-(SP) 


C8PNTF 
64 .SP 


2 -(SP) 
61, -(SP) 

SP ,RO 
SSsPNTF 

64 ,SP 
QUESTN,ANSWER,1,YES 
C$GMAN 
10000$ 
ANSWER 
TSCODE 
_— 


31S THE Ne | AVAILABLE 
3 ANCH T xIT 
; MANUAL INTERVENTION ALLOWED ? 


;NO, BRANCH TO EXIT 
;PRINT TEST 11 MESSAGE 


;PRINT REQUIREMENT MESSAGE 


;GET OPERATOR INPUT 


;DID OPERATOR ANSWER YES ? 
TO ExIT 


ANSWER 
;.0AD PROGRAM NAME CASCII 2) 
;GO RUN THE INTERNAL ORIVE TEST 


owimissAeltaammatett LLL 


ARDWARE 


3873 

3674 

3875 042574 
74 


38861 042630 
04 


| 
| 042640 
042642 
042644 
5882 042650 
042650 
042652 
| 
| 


MACRO V 


Wednesday 


000001 000014 


002424 
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TEST 12: VELCCITY FAULT OF SOLATION TEST (Internal Orive Test 3) 


SEQ 109 


.SBTTL TEST 12: VELOCITY FAULT ISOLATION TEST (Internal Drive Test 5) 


i$: 


100008: 


TLI2EXT: 


L10034: 


BGNTST 


BIT 
BNE 


@ORPFLG,LUNFLG(R4 ) 
TI2EXT 


T12MS1 
Co] SP) 


#4 ,SP 
QUESTN, ANSWER, 1, YES 
C$GMAN 


;IS THE DRIVE . 
3NO, BRANCH TO EX 
;MANUAL INTERVENTION ALLOWED ? 


3NO, BRANCH TO EXIT 
;PRINT TEST 12 MESSAGE 


;PRINT TEST REQUIREMENT MESSAGE 


;GET OPERATOR INPUT 


;DID OPERATOR ANSWER YES ? 
;NO, BRANCH TO EXIT 

;CLEAR OPERATOR ANSWER 

;LOAD PROGRAM NAME CASCII 3) 
;GO RUN THE INTERNAL DRIVE TEST 
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TEST 13: SELECT A ORIVE RESIDENT TEST lateral Drive teste "h- 
a] _SBTTL TEST 13: SELECT A ORIVE RESIDENT TEST CInternel Drive Tests 1-99) 
3893 042716 BGNTST 
042716 T13:: 
3894 042716 032764 9000001 000014 BIT @DRPFLG,LUNFLGCR4) ;I1S THE ORIVE AVAILABLE 
3895 042724 001065 BNE TI3EXT ;NO, BRANCH T x 
3896 042726 sMANUAL INTERVENTION ALLOWED ? 
042726 104450 TRAP C$MANI 
3897 042730 BNCOMPLETE ;NO, BRANCH TO EXIT 
e7 103063 TI3EXT 
3898 042732 1$: PRINTF #T13MSi ;PRINT TEST 13 MESSAGE 
042732 012746 026430 MOV #T13MS1,-CSP) 
a7 012746 000001 MOV #1,-(SP) 
042742 010600 MOV P,RO 
0427 104417 TRAP CSPNTF 
0427 062706 000004 DD @4,SP 
3899 042752 PRINTF @MMSG ;PRINT TEST REQUIREMENT MESSAGE 
042752 012746 026536 MOV @MMSG , -( SP) 
27 012746 MOV 01,-CSP) 
042762 C1 MOV RO 
e7 104417 TRAP CSPNTF 
042766 062706 000004 ADD @4,SP 
3900 042772 GMANID SELTST,MANTBL.A,,1,2,.NO ;ASK OPERATOR FOR TEST NUMBER 
042772 104443 TRAP C$GMAN 
042774 000406 BR 10000$ 
042776 022754 . WORD MANTBL 
3000 000142 . WORD TSCODE 
043002 026646 . WORD SELTST 
043004 000000 . WORD 
043006 000001 . WORD TS$LOLIM 
043010 0900002 . WORD TSHILIM 
043012 10000$: 
3901 043012 012702 002424 MOV @TSTNAM,R2 ;GET ADDRESS OF DRIVE TEST NAME 
3902 043016 012703 022754 MOV @MANTBL ,R3 ;GET ADDRESS OF OPERATOR INPUT DATA 
3903 043022 112322 MOVB CR3)+,CR2)> sLOAD 1ST DIGIT OF TEST NAME 
904 043024 105715 TSTB CR3) ;CHECK FOR A 2ND DIGIT 
3905 0430 001401 BEQ 10% ;BRANCH IF NONE 
3906 0430350 111312 MOVB CR3),CR2) ;LOAD 2ND DIGIT OF TEST NAME 
3907 043032 10$: GMANIL QUESTN. ANSWER, 1,YES ;ASK OPERATOR IF READY 
043032 104443 TRAP CS$GMAN 
3034 000404 BR 500018 
043036 002354 . WORD WER 
043040 13 . WORD TSCODE 
043042 026716 . WORD QUESTN 
3044 . WORD i 
043046 10001$: 
3908 043046 005737 002354 TST SWE OPERATOR ANSWER YES ? 
3909 043052 001412 BEQ TISEXT ANCH TO EXIT 
3910 043054 5037 0v2354 CLR SWER ‘CLEAR OPERATOR ANSWER 
3911 043060 737 032150 JSR PC ,.ORVTST ;GO RUN THE INTERNAL DRIVE TEST 
3912 04 012702 002424 MOV 8TSTNAM,R2 ;G=f ADDRESS OF DRIVE TEST NAME 
3913 043070 112722 MOVB $40, (R2 " RETURN DRIVE TEST NAME TO ASCII SPACES 
3914 043074 112712 09000040 MOVB #40 ,(R2) 
3915 043100 TI3ZEXT: EXIT TST 
043100 104432 TRAP CSEXIT 
043102 000002 . WOR L10035- 
3916 043104 ENDTST 


HAROWARE TEST 


TEST 13: SELECT 


043104 
043104 

3917 043106 

3918 

3919 

3930 

3931 

3959 

3960 043106 

3961 

3962 

3963 

3964 

3965 

3966 

3967 

3968 

3969 

3970 

3971 043106 
043106 
043110 

3972 

3976 

3979 043110 
043110 
043112 
043114 
043116 

3980 043120 
043120 
043122 
043124 
part te ys 
0431 

3981 pert tee 
043132 
et tg rt 
043156 
043140 
043142 

398 

398 etter 
043144 

3964 

3985 043146 

soe 043163 

3967 043175 

3988 

3989 

3990 

3991 043220 
043220 

3992 

3999 


MACRO VOS.05 
A ORIVE RESIDENT 


104401 


Wednesda 
TEST tI 
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nternel Drive Tests i1- 


10035: 
TRAP CSETST 
ENDMOD 


. TITLE PARAMETER CODING 
.SBTTL HARDWARE PARAMETER CODING SECTION 
BGNMOD 


*¢ 

THE HARDWARE PARAMETER CODING SECTION Typos MACROS 

THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 

MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 

INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 

WITH THE OPERATOR. 


BGNHRD 
-WORD L10036-L$HARD/2 


L$HARD: : 
GPRMA TUIPAD,.0,0,160002,177564, YES 
“WORD TSCODE 
“WwORD TUIPAD 
"WORD  TS$LOLIM 
“WORD HILT 
GPRMD TUVECT.2,0.777.60. 776, YES 
_WORD T$ 
“WORD TUVECT 
“WORD 7 
"WORD T$LOLIM 
“WORD TS$HILIM 
GPRMD §TUUNT,4,0,777,0,251, YES 
“WORD TSCODE 
"WORD _TUUNT 
“WORD 777 
"WORD  TS$LOLIM 
“WORD  TSHILIM 
EXIT HRD 
“WORD  TSCODE 
TUIPAD: .ASCIZ ?TUIP ADDRESS? 
TUVECT: .ASCIZ ?TU VECTOR? 
TUUNT: .ASCIZ ?T/MSCP UNIT NUMBER? 
“EVEN 
EVEN 
L19036: 


EE ee em 


SEQ 111 





— oe ee ree 
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SOFTWARE PARAMETER CODING SECTION 


ance .SBTTL SOFTWARE PARAMETER CODING SECTION 
4006 3¢ 
4005 ; THE SOFTWARE PARAMETER CODING SECTION vy MACROS 
4006 ; THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
4007 ; MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
4008 ; INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
4009 ; MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
4010 ; WITH THE OPERATOR. 
4011 i> 
4012 
4013 043220 BGNSFT 
043220 000000 .WORD L10037-L$SOFT/2 
043222 L$SOFT:: 
4014 
4021 
4022 .EVEN 
4023 
4024 043222 ENDSFT 
043222 L10037: 
4026 
4036 5p RRRAAERESAEREERSEEESEEEESEERAEARESEDAEASEAEAEEASEEAESAEESESEASDS 
ree SS CA Rt EAN se es sta aaa anrauamaaa ae 
4039 : COMMUNICATIONS ARER 
4040 F THIS IS THE COMMUNICATIONS AREA THAT IS USED 
4041 ; T THE PROGRAM IN TESTING THE PERMUTATIONS 
404 3 OF THE UQ-PORT INIT SEQUENCE. IT IS ESSENTIAL THAT 
404 ; THIS AREA RESIDE IN AN 8KBYTE AREA OF MEMORY FREE 
4044 ; OF re gg be" CODE SO THAT IT MAY BE eee one 
4045 : RELOCATED THROUGHOUT UPPER MEMORY VIA MEMORY MA 
rr rt : AGEMENT. 
: 
4048 5p PRRERSEEEREEEEERESAERERARERABAESEEARESEDESESEAEAEAESEEEEEEREEEES 
acer 5p RARAEAAAESREESEEEEERASEEASEASSSESESASASESRSEAESSERESEEESEEDEDES 
40 
red) 060000 . 60000 ;START OF THE THIRD 8KBYTE BLOCK 
40 : ;O0F VIRTUAL MEMORY SPACE. ACCESIBLE 
405 ;VIA PAR/PDR 2. 
4054 060000 RDOBUF : : 
4055 060000 COMMBF : : 
4056 060000 .BLKW 20. :BUFFER SPACE PRECEDING COMM AREA 
4057 060050 COMMAR: : 
40 pots .BLKW 514. ;sMAXIMUM COMM AREA LENGTH 
4059 ones LASTBF:: 
060 54 BLKW 20 ;BUFFER SPACE SUCCEEDING COMM AREA 
4065 062124 LASTAD 
.EVEN 
062124 000000 . WORD 
0621 000000 . WORD 0 
0621 LSLAST:: 
4066 062130 ENDMOD 
4067 000001 .END 





— ee - 


—_ 


—— 


PARAMETER CODING 









Symbol teble 
ABORT 002466 
AOR = 000020 
ANS 002354 
AS * 000010 
AKPAT 031426 
*« 000901 
T * 900001 
« 900002 
OF Tee = 000004 
BITOS «= 000010 
BITO4 = 000020 
Orr oE = 000040 
IT06 = 000100 
BITO7 = 000200 
BITOB = 000400 
BITO9 = 001000 
BITi = 000002 
Berit « 002000 
IT1i1 = 004000 
sriig * 010000 
BITi3 »= 020000 
sitis * 040000 
IT15 = 100000 
BIT2 «* 
BITS = 
is: 
Tt -« 
IT . 
He 
Tt «= 
BIT9 = 





rT woe~oVvseunh 


& 


ae 






np vvOZZr HOMO AT 
SECESS SOIC ESAs 






NOB@ewswwvocorq0q000q00000 


2 





010000 


HOOOOOOOOOOOOHOOHHOHOHOOOHHOHHOOHGHHHHHOHOHHOHOHHHHHOOOMHHoHOHoHHOod OG 
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CKCMEX 


031614 
632350 
326 


od 
HOOHOHOHHOHOOHHOHOHHHHHHHHHHG 


025215 


Os = $i So fee 
HOHOOHHHHAHAHOHOHOHGOHOOHOHHOOHOOG HOOOoaag 





i 
I 

I$ 

I$ 

ISMSG = 
I$PROT= 
I$ 
I$ 
I$ 
I$ 


xz 

: 

ew S 
seeeenenenanenan 


000140 
000000 


QPHCC OOOOH © OKOooqoonnodc 


OHOOHOOOHOOog 


AA ome + ~ = 


tals, asset tL LL LLL LL LLL 
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Symbol teble 





* 172302 G LSICP 002104 G MMUSRO= 177572 G PRIO6 = 000300 G TSTNAM 002424 
* 172304 G L$INIT 0633464 G MMUSRi= 177574 G PRIO7 = 000340 G UIP = 
* 172306 G LADP 002026 G MMUSR2= 177576 G 002 G TUIPAD 043146 
* 172310 G L$LAST 062150 G MMUSRS= 172516 G 002356 G TUIPSV= GOCO10 G 
* 172312 G L$LOAD 002100 G = G PRIORV O G T bd 
= 172514 G L$LUN 002074 G MODIFY 023520 G PRTINT 031716 G TUSASV= 000012 G 
* 172316 G LS¢MREV 002050 G * G P.BCNT= 4G TUUNT 043175 
K 31146 L¢NAME 002000 G MSCPVR= G P .BUFF= G TUVEC = 000004 
TFL 002314 G L$PRIO 002042 G MSGLEN= 177774 G P.CRF = G TUVECT 0435165 
030776 G LSPROT 022760 G NEXT P.ENDC= 000010 G TXFER = 000005 
LAST 06 G $PRT  O02112 G T 031142 P.FLGS= 000017 G TSARGC= 000001 
to 025632 G LSREPP 00 G NUPASS 033570 P.INDi= 000020 G TSCODE= 026004 
| 022774 G LSREV 002010 G ONEF It = P.IND2= 000022 G TSERRN= 0000350 
023030 G LS¢RPT = seeee2 GX OPCODE 023500 G P.MOD = 000012 G TSEXCP= 000000 
023110 G L$SOFT 043222 G OP. ABT= G P.OPCD= 000010 G TSFLAG= 000041 
023140 G L$SPC 002056 G OP .ELP= G P.STS = 000012 G = 000000 
023203 3 L$SPCP 002020 G OP.END= 000200 G P.TIMO= 000024 G TSHILI= 000251 
023 3 L$SPTP 002024 G OP .GDS= G QUESTN 026716 G TSLAST= 000001 
0233235 G L$STA 0020350 G OP .REC= SG RBUF = 177562 G T$LOLI= 000000 
L ad G Si 002234 G OUTER 002346 G RCSR = 177560 G TSLSYM= 010000 
002332 G LSTEST 002114 G = 1 G RCVDAT 002436 TSLTNO= 5 
LOOP 031736 LS¢TIML 002014 G OSAPTS= RCVERR 027726 G TSWEST= 177777 
L . 10 G LSUNIT 002012 G OsSAU = R G T$ = 000000 
025670 ~ Li 002232 OSBGNR= 000001 RE 002502 G TSNS1 = 000005 
LUNBLK 0022354 G 110001 002234 OSBGNS= RNGSTP= G T$ = 000002 
LUNFLG= 14 G L10003 030654 0s = 000001 R 2 G TSPTNU= 000000 
A; 002110 G Li 0 OsSERRT= 000001 RSPEND 002716 G TS$SAVL= 177777 
LSAPT 2036 G L10005 030672 $GNSW= 000000 002716 G TS$SEGL= 177777 
L SAU 034010 G L 0307 O$POIN= 000001 RSPSAV 022752 G T $SUBN= 
LS¢AUT 002070 G 033742 OsSETU= STP= G T$TAGL= 177777 
LSAUTO= seseeee GX L10010 033772 PAROFF 002320 G RSTVEC 031162 G T$TAGN= 010040 
L$ eos G L10011 034 PASCNT 002312 G AE 00 G TSTEMP= 
LSCLEA 035744 G Li0012 034014 PCKSIZ 002742 G SELTST 90 G TSTEST= 5 
L sco 002032 G L10013 034512 PDELAY G PT 002234 G TSTSTM* 177777 
L$DEPO 002011 G L10014 03420 POLYEX 0313526 START 033536 TSTSTS= 
L$DESC 002156 G L10015 0 PDRECV 032670 G TAT 023755 G T$$AU = 010012 
L$ 002076 G L10016 034742 PKRECV 023 G STEPST 002540 G T$8CLE= 010010 
LSDEVP 002060 G 110017 035 PKSENT 023414 G STEP1 0315350 G T$$0U_ = 010011 
LeOISP 002124 G 036122 PNT = OO1 G STPTBL 002272 G TS$HAR= 010036 
L¢OLY 002116 G L10021 037254 3 3543 G STPIER 031420 Té$HW = 010000 
LSOTP 002040 G 036650 PRGVER 023775 G STPIEX 031424 T$$INI= 010007 
LeOTYP st Sa G L10023 037252 ..* G STSEXT 037242 T$$MSG= 010005 
Ls 033774 G L10024 7 PRIDAT 027142 G ST6EXT 04 T$$PRO= 010002 
LsOUT 002072 G L10025 040026 I€ 027222 G SVCGBL = T$$SOF= 010037 
LeOVTY 022766 G 76 RIE 0 SVCINS= 000000 TS$$SRV= O1 
L ser 002052 G L10027 041442 PRIINI 2G SVCSUB= 000000 T$$SUB= 010026 
Leet 002044 G L10030 042204 ITIP 027172 G SVCTAG= 000000 T$$SW = 010001 
LSERRT= seeeee GX L10031 042266 PRIO7 = #ene02 GX SVCTST= 000000 TS$$TES= 010035 
LSETP 002102 G L10032 042450 PRIP 7 G S$LSYM= 010000 Tl 34016 G 
LSEXP1 002046 G Li0033 042572 PRISA 027026 G Si = 004000 G T1.1 
LSEXP4 002064 G L100 042714 PRIVAD 027114 G TEMP 002352 G T1.2 2 
LSEXPS en ige: G Li0035 0435104 PRIOO = 000000 G TEST.9= 000010 G T10 042270 G 
LSHARD 0435110 G L100 043220 PRIO1 = 000040 G TF. .BLK= 000010 G TIOEXT 042 
LSHIME 002120 G 110037 043222 = 000100 G TIMOUT 024026 G T1OMS1 025724 G 
LeHPCP 002016 G TBL 022754 G PRIOS = 000140 G TOUT 002350 G T1OMS2 0260 
LSHPTP 002022 G . i PRIO4 = 000200 G TRAP4 030656 G T1OMS3 026057 G 
L sh 002224 G MMSG 026536 G PRIOS = 000240 G TRP4FG 0023516 G T10MS4 026154 G 


——_ ee - 





PARAMETER CODING MACRO VOS.03 Wednesday 09-Oct-85 10:06 Page 86-5 SEQ 115 
Symbol teble 





Til 042452 G TZ2EXT 034736 T6EXT 040022 VAM == 900200 G 
TLIEXT 042566 T3 634744 G T6.1 037256 VECTOR 031212 G 
T11MS1 i T3EXT 5354 T6.2 VEC&@ = 9000004 G 
Ti2 042574 G T4 035362 G 17 040702 G WRBUF #002750 G 
TIZEXT 042710 T4EXT 036102 T7EXT 041436 WRDATA 002342 G 
ie 026324 G 036124 G Ts 1444 5 WRERI #025250 G 

i poy Hes G TSEXT O T8EXT 042206 WRER2 025502 G 000040 

TISEXT 043100 T5.1 036124 T9 042206 G WRERS 0253235 G XSOFFS= 000400 

| T134S1 Ceeeie G T5.2 036652 TS9EXT 042262 WRER4 0253551 G X$TRUE= 9000020 
T2 034514 G T6 037256 G TOFLAG= seeee2 GX WRERS 025375 G 


, ABS. 062130 000 )«=— (RW, I. GBL . ABS. OVR) 


| 
| 
hunts Pa. oes (RW,I,LCL,REL,CON) 
eee Assembler stetistics 
file reads: 291 


: 
@ of work file: $3376 Words ( 135 Pages) 
ize of core pool: Noe Words ( 75 ag 
reting system: RSX-11M/PLUS (Under VAX/VMS) 


fee SS ein ce Tush, SP oSVC4OR.MLB/ML.CZTU2B 


